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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RMO3 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 
FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMO3 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 


TO DETECT ERRORS AND FAULTS IN THE RMO3 MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN RMO3 TO A FIELD REPLACEABLE MODULE 
OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO3 DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
Se caemataen IS REQUIRED TO LOAD AND EXECUTE THE RMO3 DISKLESS 
AGN $ 


PDP-11 PROCESSOR 

16 K MEMORY 
KW11-L OR LW11-P CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 
RH CONTROLLER 
UNIT UNDER TEST, 

WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS. 
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2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


CZRMJ- ,RMO3/02 DISKLESS DIAGNOSTIC PART 1 


3.0 OPERATING PROCEDURE 
3.1 LOADING 


THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 
STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 


SW15 HALT ON ERROR 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SW11 INHIBIT TEST ITERATIONS 

$w10 BELL ON ERROR 

Sw09 LOOP ON ERROR 

$w08 LOOP ON TEST IN SW07-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON. 





SEQ 0005 
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3.3 STARTING 


THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT VALUES OF 
ange L ge AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


4.2 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL ADAPTERS IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.3 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.4 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.5 ERROR REPORTS 


THE RMO3 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR REPORTS 
INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE REFERENCES TO 
PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH GIVE A 
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES 
IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND 
DATA PERTININENT TO THE ERROR, INCLUDING- EXPECTED AND ACTUAL TEST 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
THE RMO3 DISKLESS DIAGNOSTIC IS EXECUTABLE ON ANY  PODP-11 


cee PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONFIGURATIONS 
THE RMO3 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMO3 SUBSYSTEMS 


HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET TO THE 
APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMO3 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMO03 
DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 
THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 


lo A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 
— PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 
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6.0 TEST DESCRIPTION 


FHE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
oe USES A MORE COMPLEX SUBSET "* ARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE "’RMO3 DISKLES DIAGNOSTIC’ CAN BE EXECUTED USING AN RH70 OR AN 
RH11 MASSBUS CONTROLLER. % 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3 CAN COMPLETE A REGISTER TRANSFER ON 
THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER'’ IS NOT 
STUCK IN AN INACTIVE STATE. 


PROCEDURE : 


THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE 
SELECTED DEVICE. REGISTER CONTENTS AND PARITY ERRORS ARE 
IGNORED, AND THE TEST FAILS IF A ‘‘NONEXISTENT DEVICE ERROR’ OR 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 


PROBABLE FAULT: 


THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 
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If MODULE 
ASYNCHRONOUS MASSBUS MODULE 
CS MODULE 


TEST 
PURPOSE: 

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE RMO3 
USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
“CONTROLLER TO DEVICE’ HAS NOT FAILED. 


PROCEDURE : 


~~ So Ow DY SS 
ocooocoee esses eeeeeeeeee2¢¢ee 


THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF “‘IF3 CTOD HOLD 
H"' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 


AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 
PROBABLE FAULT: 

1. IF MODULE 

2. ASYNCHRONOUS MASSBUS MODULE 


MASSBUS INITIALIZE TEST 
PURPOSE: 


TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 


PROCEDURE : 

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 


PROBABLE FAULT: 
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1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 
3. CS MODULE 


CLEAR SiUCK ACTIVE TEST 
PURPOSE: 


TO VERIFY THAT ‘MBA CLR L*’ ON THE CS MODULE IS NOT STUCK IN 
AN ACTIVE STATE. 


PROCEDURE : 


CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT, 
AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK, ELSE, ‘MBA CLR L’’ IS PROBABLY STUCK ACTIVE. 


PROBABLE FAULT: 

1. CS MODULE 

2. IF MODULE 

3. ASYNCHRONOUS MASSBUS MODULE 


TRISTATE TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 
TRISTATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
BIT POSITION IS INDEPENDENT. 


PROCEDURE : 


THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A _ NONZERO 
VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 
USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
Seas tt a, eseennnt TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 
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THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
EACH BIT POSITION. 


FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN.BIT O 
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
BIT POSITIONS. 
PRUBABLE FAULT: 
1. ASYNCHRONOUS MASSBUS MODULE 

IF MODULE 

CS MODULE 


DS MODULE 


REGISTER SELECT TEST 
PURPOSE : 


TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A_ STUCK 
POSITION. 


PROCEDURE : 


EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS IN 
THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN 
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE 
ONE. THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
IS REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE, 
THE ONES REGISTER IS WRITTEN FIRST. 


REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN THIS 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE “ILR TEST". 


PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 
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PURPOSE : 
TO TEST THE ‘DRIVE TYPE’ REGISTER, RMDT. 


PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
CORRESPONDS TO A SINGLE PROT OR DUAL PROT RMO3 DRIVE 


PROBABLE FAULT: 
1. IF MOULE 


PRUPOSE : 
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 


PROCEDURE : 

THE PROGRAM TESTS ‘‘DVA’',BIT 11 OF RMCS1. 
PROBABLE FAULT: 

1. IF MODULE 





PURPOSE : 


TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS ‘‘OPI"', 
EXCEPT WHEN “"SEARCH TO DISABLE’’ IS ACTIVE. 


PROCEDURE : 


WITH SEARCH TIMEOUT DISABLED, THE TEST EXECUTES A DATA 
COMMAND TO THE POINT WHERE ‘‘P ENABLE SEARCH’ IS ASSERTED. 
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OPI 
Ra BR TEST ENABLES SEARCH TIMEOUT AND VERIFIES 


PROBABLE FAULT: 
1. CS MODULE 
NOTE: IT IS ASSUMED THAT THE “SET OPI TEST‘ HAS 


ALREADY PASSED, THUS MAKING THE IF MODULE 
AN IMPROBABLE FAULT. 
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TEST 
PURPOSE : 


IN ADDITION TO VERIFYING THAT ‘DRIVE TIMING ERROR*’ CAN 
BE SET BY THE CS MODULE, THIS TEST ALSO VERIFIES 


* THAT “MAINTENANCE SECTOR COMPARE'’ IS NOT STUCK AT ONE 
OR ZERO. 


* THAT “ENABLE SEARCH'' IS NOT STUCK AT ONE OR ZERO. 
PROCEDURE : 

(1) INITIALIZE AND VERIFY THAT ‘“‘DTE’’ IS RESET, THEN 
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL 
RESET. THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP 
IS NOT STUCK AT ONE. 

(2) EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO 
THE POINT WHERE SEARCH IS ENABLED, I.E., P EN SEARCH H IS 
IS ACTIVE. SET AND RESET THE SECTOR PULSE TO SET ‘‘CS3 EN 
SEARCH" FLOP, AND CLOCK ‘CSS SECTOR COMPARE’’ FLOP WHICH 
SHOULD NOT SET. SET SECTOR PULSE AND VERIFY THAT DTE IS 
RESET. THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP 
IS STUCK AT ONE. 

REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY 
THAT DTE SETS. THIS TEST FAILS IF MAINTENANCE SECTOR 
COMPARE IS STUCK AT ZERO. 
PROBABLE FAULT: 
1. CS MODULE 


2. OS MODULE 


HANGE TEST 
PURPOSE : 


TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH 
ENABLE UNTIL THE NEXT INDEX PULSE. 


PROCEDURE : 
THE TEST WILL USE “‘DTE’ FOR VISIBILITY OF ‘'CS3 EN 


SEQ 0015 
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SEARCH H"’. 
THE FOLLOWING STEPS ARE EXECUTED: 


(1) INITIALIZE AND SET THE FORMAT TO 18 BIT MODE 
TO SET “CSS FMT CHANGE’ FLOP. 


(2) EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH 
IS ENABLED BY THE SEQUENCER. 


(3) SET ‘MAINTENANCE SECTOR COMPARE’, THEN SET 
“MAINTENANCE SECTOR PULSE’’ TO CLOCK ‘’CS3 EN SEARCH'* FLOP 
WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE. 


(4) RESET SECTOR PULSE TO CLOCK ‘’CSS SECTOR COMPARE’’ 
FLOP WHICH WILL NOT SET IF ‘"CS3 EN SEARCH H"’ IS INACTIVE. 


(5) SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING 
ERROR IS RESET. 


(6) SET AND RESET INDEX PULSE TOCLEAR THE FORMAT 
CHANGE FLOP. 


(7) SET AND RESET SECTOR PULSE TO SET ‘’CS3 EN SEARCH" 
FLOP AND ‘’CSS SECTOR COMPARE" FLOP. 


(8) SET SECTOR COMPARE AND VERIFY THAT DTE IS SET. 


REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE 
TO 16 BIT MODE. 


PROBABLE FAULT: 
1. CS MODULE 


PROM STROBE TEST 
PURPOSE: 


TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MAN- 
IPULATED IN MAINTENANCE MODE. 


PROCEDURE : 

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE 
MAINTENANCE CLOCK UNTIL PROM STROBE SETS. ISSUE -- MORE 
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS. 
PROBABLE FAULT: 


1, CS MODULE 
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2. ODS MODULE 


SYNC WORD COUNT INHIBIT TEST 
PURPOSE: 
TO VERIFY THE FOLLOWING DURING READ COMMAND: 
* THAT "'CS4 P LFS" (LOOKING FOR SYNC) GOES ACTIVE. 
* THAT "LOOKING FOR SYNC"’ INHIBITS THE WORD COUNT 
PROCEDURE : 
A READ COMMAND IS SETUP AND EXECUTED TO THE POINT 
PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL”. TH 


THE 
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES 
THAT *‘PROM STROBE*’ NEVER GOES ACTIVE. 


PROBABLE FAULT: 
1. CS MODULE IF LFS FAILT, 


2. DS MODULE IF PROM STROBE FAILS. 


SYNC DETECTION TEST 
PURPOSE: 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
RECOGNIZED. 


PROCEDURE : 

THE TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE, 
USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIM- 
ULATE THE SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE 
IF THE SYNC PATTERN HAS BEEN DETECTED. 


THE SYNC PATTERN IS 00011001, WITH THE LEFT MOST 
BIT REPRESENTING THE LAST BIT OF THE STREAM. 


PROBABLE FAULT: 
1. DS MODULE 
2. (CS MODULE 
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ABORT SYNC DETECTION TEST 
PURPOSE : 


TO VERIFY THAT "WORD COUNT INHIBIT’’ IS RESET IF A 
“DRIVE TIMING ERROR"’ OCCURS DURING SYNC DETECTION. 


PROCEDURE : 

A READ COMMAND IS INITIATED IN MAINTENANCE MODE. WHEN 
“LOOKING FOR SYNC’’ GOES ACTIVE, THE TEST FORCES A DRIVE 
TIMING ERROR AND USES PROM STROBE TO VERIFY THAT ‘WORD 
COUNT INHIBiT'’ HAS BEEN RESET. 

PROBABLE FAULT: 


1. DS MODULE 


SYNC GENERATION TEST 
PURPOSE: 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
GENERATED DURING A FORMAT OPERATION. 


PROCEDURE : 

THE TEST EXECUTES A WRITE HEADER AND DATA COMMAND 
IN MAINTENANCE MODE, AND VERIFIES THAT THE CORRECT SYNC 
PATTERN IS GENERATED BY MONITORING WRITE DATA AT THE MAIN- 
TENANCE REGISTER (RMMR1). 
PROBABLE FAULT: 


1. DS MODULE 


WRITE HEADER TEST 
PRUPOSE: 


TO TEST THE OPERATION OF (1) THE DATA BUFFER AND SHIFT 
REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE. 


PROCEDURE : 
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A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE 
CRC CHARACTER USING THE WRITE DATA BIT OF THE MAINTENANCE 
REGISTER. 

THE TEST USES CYLINDER 822, TRACK 4, SECTOR 31 AND 
16 BIT FORMAT, WHICH CORRESPONS TO THE FOLLOWING 
HEADER: 

WORD 1 = 1101001100110110 

WORD 2 = 0000010000011111 
PROBABLE FAULT: 


DS MODULE OR MASSBUS MODULE 
HEADER COMPARE TEST 


PURPOSE: 


TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND 
ep BUFFER AS WELL AS THE (2) CRC GENERATOR DURING 


PROCEDURE : 

THE TEST EXECUTES A READ HEADER AND DATA COMMAND IN 
MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE REGISTER 
(RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND 
HEADER WORDS AS WELL AS THE CRC CHARACTER. THE CRC CHARACTER IS 
1S FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS DETECTED. 
ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND TWO 
ARE CORRECTLY TRANSFERD TO MEMORY. 

THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT 
THAT BIT 15 IS INVERTED. 


PROBABLE FAULT: 
DS OR IF MODULE IF CRC ERROR NOT DETECTED; 
DS OR MASSBUS MODULE IF DATA INCORRECT 
ECC GENERATION TEST 
PURPOSE : 
TO CHECK ECC OPERATION DURING WRITE. 
PROCEDURE : 
A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES 


THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE 
REGISTER. THE DATA FIELD IS NOT VERIFIED. 
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881 PROBABLE FAULT: 
882 DS MODULE 

884 ECC DETECTION TEST 

886 PURPOSE : 

888 TO CHECK THE ECC GENERATION DURING READ. 

890 PROCEDURE : 

892 THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE 
893 MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA 
894 WORD IS FAULTED. 


896 THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED 
897 AND THAT (2) THE POSITION AND PATTERN REGISTERS ARE VALID. 


899 PROBABLE FAULT: 
901 DS MODULE 
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;PROGRAM REVISION #001 

-TITLE CZRMKAO a DSKLS PRT 2 
s*COPYRIGHT (C) 1 

:*DIGITAL EQUIPMENT "CORP. 

pSVERRD MASS. 01754 

:SPROGRAR BY DOUG RIIKONEN 


: STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
paPRCRANS (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


000001 $1N =1 
-SBTTL OPERATIONAL SWITCH SETTINGS 


tt 
SWITCH 





ERROR 


EST 

ERROR TYPEOUTS 
ITERATIONS 

ERROR 

ERROR 

TEST IN SWR<7:0> 


-* 
-* 
-* 
-* 
-* 
-* 
-* 
-* 
°t 
-* 
-* 
:* 
-* 
-* 
s@ 
-* 


OK MWEUANWOO-WFEul 


it T™N1 
‘TSBTTL BASIC DEFINITIONS 


:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
-EQUIV EMT,ERROR >:BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 7;BASIC DEFINITION OF SCOPE CALL 


3 *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 :;CODE FOR HORIZONTAL TAB 
7:CODE FOR LINE FEED 
3;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN~-LINE FEED 
177776 7;PROCESSOR STATUS WORD 


177774 STACK LIMIT REGISTER 

177772 7;PROGRAM INTERRUPT REQUEST REGISTER 
177570 S > HARDWARE SWITCH REGISTER 

177570 DDISP= 177570 i HARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 20 ENERAL REGISTER 
000001 «GENERAL REGISTER 
000002 7;GENERAL REGISTER 
000003 7: GENERAL REGISTER 


Ami mi mimi mi miMimiMimi MiMi MIMI MiMi MI MIA MIM ALALALALAL MIMI MI MLR RRMA LAURA AAA ALAA ALALALALS 


ee ee ee ee ee ee ee ee me we we ek dd ed re wo oo a oa at a a at oa at ot ot ot ot ot I Ot OD at I 
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000004 R4= ;;GENERAL REGISTER 

0 R5= 7 GENERAL REGISTER 
R6= ; GENERAL REGISTER 
R7= ;;GENERAL REGISTER 
SP= 3:STACK POINTER 

000007 PC= ;;PROGRAM COUNTER 


s;*PRIORITY LEVEL DEFINITIONS 

000000 PRO= 0 7sPRIORITY LEVEL 
PRI= ;;PRIORITY LEVEL 
PR2= ;;PRIORITY LEVEL 
PR3= ;;PRIORITY LEVEL 
PR4= :;PRIORITY LEVEL 
PR5= 7 ;PRIORITY LEVEL 
PR6= 7 ;PRIORITY LEVEL 

000340 PR7= 3 :PRIORITY LEVEL 


NOUSWNM Oo 
wt tO DD Oo 


AXAVMAMAMAMANAVAMAUN 


100000 


3*°"SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15= 100000 


000001 


100000 


000100 BIT06= 
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000040 
000020 
000010 
000004 
000002 
000001 


900004 


000240 


004000 
000040 
000020 
000010 
000004 
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BITOS= 
BIT04= 
BITO3= 
BITO2= 
BITO1= 
BI T00= 
-EQUIV 
EQUIV 
EQUIV 
EQUIV 
EQUIV 
EQUIV 
-EQUIV 
EQUIV 
-EQUIV 
-EQUIV 


1 

BIT09,B1T9 
B1T08,B1T8 
B1T07,B1T7 
B1T06,B116 
BIT05,B1T5 
B1T04,B1T4 
BIT03,B1T3 
B1T02,B1T2 
B1T01,B1T1 
B1T00,B1T0 


;*BASIC “'CPU’’ TRAP VECTOR ADDRESSES 
ERRVEC= 4 


RESVEC= 
TBITVEC 
TRIVEC= 
BPTVEC= 
IOTVEC= 
PWRVEC= 


EMTVEC= 3 


TRAPVEC= 


TKVEC= 
TPVEC= 


PIRQVEC= 


34 
60 
64 
240 


:;TIME OUT AND OTHER ERRORS 
fe tots AND ILLEGAL INSTRUCTIONS 


3; TRACE TRAP 

3;BREAKPOINT TRAP (BPT) 

3: INPUT/OUTPUT TRAP {i0T) **SCOPE** 
7:POWER FAIL 

sEMULATOR TRAP (EMT) **ERROR*® 
37°'TRAP’’ TRAP 

3: TTY KEYBOARD VECTOR 

sz TTY PRINTER VECTOR 

37PROGRAM INTERRUPT REQUEST VECTOR 


~SBTTL RMO3 REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER 


;RMCS1 


BIT11 
B1T05 
BITO4 
BIT03 
BITO2 


sDEVICE AVAILABLE-READ ONLY 
FUNCTION CODE 
:FUNCTION CODE 
FUNCTION CODE 
;FUNCTION CODE 


o 
MN 
» 
s 


SEQ 0023 


o 
M~ 
zDD 
= 


3 SS SS OO OO 
AAAAMAAAAMAAAA A AO PS 
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CZRMKA.P11  05-APR-78 14:38 RMO3 REGISTER BIT DEFINITIONS 

1056 000002 FO = BIT01 sFUNCTION CODE 

1057 000001 60 2 BITOO :G0 BIT 

1058 000077 FNCMSK = 000077 sFUNCTION CODE MASK 

1060 :FUNCTION CODES (BITS 01-05 OF RMCS1) 

1062 000000 NOP 2 000000 :NOP COMMAND 

1063 000002 ILFO2. = 000002 : ILLEGAL COMMAND 

1064 000004 SEEK. = 000004 :SEEK COMMAND 

1065 000006 RECAL = 000006 sRECALIBRATE COMMAND 

1066 000010 DRVCLR = 000010 [DRIVE CLEAR COMMAND 

1067 000012 RLEASE = 000012 ;RELEASE COMMAND 

1068 000014 OFFSET = 000014 SOFFSET COMMAND 

1069 000016 RTC = 000016 [RETURN TO CENTERLINE COMMAND 
1070 000020 RIP = 000020 ;READ IN PRESET COMMAND 
1071 000022 PAKACK = 000022 :PACK ACKNOWLEDGE COMMAND 
1072 000022 PACACK = PAKACK 

1073 000024 ILF24 = 000024 : ILLEGAL COMMAND 

1074 000026 ILF26 = 000026 : ILLEGAL COMMAND” 

1075 000030 SEARCK = 000030 :SEARCH COMMAND 

1076 000030 ILF30. = 000030 ;ILLEGAL COMMAND 

1077 000032 ILF32. = 000032 ;ILLEGAL COMMAND 

1078 000034 ILF34 = 000034 s ILLEGAL COMMAND 

1079 000036 ILF36 = 000036 sILLEGAL COMMAND 

1080 000040 ILF4O = 000040 ; ILLEGAL COMMAND 

1081 000042 ILF42. = 000042 SILLEGAL COMMAND 

1082 000044 ILF44 = 000044 : ILLEGAL COMMAND 

1083 000046 ILF46 = 000046 sILLEGAL COMMAND 

1084 000050 wed = 000050 [WRITE CHECK DATA COMMAND 
1085 000052 WCH 2 000052 SWRITE CHECK HEADER AND DATA 
0 000054 ILF54 = 000054 [ILLEGAL COMMAND 

1087 000056 ILF56 = 000056 ;ILLEGAL COMMAND 

1088 000060 wD = 000060 :WRITE DATA COMMAND 

1089 000062 WH = 000062 :WRITE HEADER AND DATA COMMAND 
1090 000064 ILF64 == 000064 S ILLEGAL COMMAND 

1091 000066 ILF66 = 000066 S ILLEGAL COMMAND 

1092 000070 = 000070 :READ DATA COMMAND 

1093 000072 R + 000072 :READ HEADER AND DATA COMMAND 
1094 000074. ILF74 = 000074 :ILLEGAL COMMAND 

1095 000076 ILF76 = 000076 ; ILLEGAL COMMAND 

+444 . ZRMDA DISK ADDRESS REGISTER 

1099 002000 TAG = BIT10 ; TRACK ADDRESS 4 

1100 001000 TA2 = BIT09 sTRACK ADDRESS 2 

1101 000400 TAI = BIT08 : TRACK ADDRESS 1 

1102 000020 SA16 = BIT04 :SECTOR ADDRESS 16 

1103 000010 SAB = BIT03 sSECTOR ADDRESS 8 

1104 000004 SAG = BITO2 sSECTOR ADDRESS 4 

1105 000002 SA2 = BIT01 :SECTOR ADDRESS 2 

1106 000001 SA1 2 B1T00 sSECTOR ADDRESS 1 

1108 ; TRACK, SECTOR MASKS 

1110 003400 TADMSK = 003400 ; TRACK ADDRESS MASK 

1111 000037 SADMSK = 000037 :SECTOR ADDRESS MASK 
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1112 

1113 ZRMDS DRIVE STATUS REGISTER 

1115 100000 ATA : BIT15 SATTENTION ACTIVE 

1116 040000 ERR = BiT14 : COMPOSITE ERROR 

1117 020000 PIP = BIT13 sPOSITIONING IN PROGRESS 

1118 010000 MOL : BIT12 :MEDIUM ON LINE 

1119 004000 WRL = BIT11 sWRITE LOCK 

1120 002000 LBT = B1T10 ZLAST BLOCK TRANSFERRED 

1121 001000 PGM = BIT09 : PROGRAMMABLE 

1122 000400 DPR = B1T08 SDRIVE PRESENT 

1123 000200 DRY = B1T07 TDRIVE READY 

1124 000100 vv = BIT06 sVOLUME VALID 

4125 000001 OM : B1T00 sOFFSET MODE ACTIVE 

$4 ;RMER1 ERROR REGISTER #1 

1129 100000 DCK = BIT15 ZDATA CHECK ERROR 

1130 040000 UNS = BIT14 SDRIVE UNSAFE 

1131 020000 OP! = BIT13 SOPERATION INCOMPLETE 

1132 010000 DTE = BIT12 sDRIVE TIMING ERROR 

1133 004000 WLE = BIT11 sWRITE LOCK ERROR 

1134 002000 AE = BIT10 : INVALID ADDRESS ERROR 

1135 001000 AOE = BIT09 sADDRESS OVERFLOW ERROR 

1136 000400 HCRC = BIT08 sHEADER CRC ERROR 

1137 000200 HCE = BIT07 yHEADER COMPARE ERROR 17( 

1138 000100 ECH = BIT06 sECC “'HARD’’ ERROR 17 

1139 000040 WCF = BIT0S SWRITE CLOCK FAILURE 17 

1140 000020 FER : BIT04 sFORMAT ERROR 17" 

1141 000010 PAR = BITO3 ;PARITY ERROR 17" 

1142 000004 RMR = BIT02 sREGISTER MODIFICATION REFUSED 17" 

1143 000002 ILR = B1T01 ILLEGAL REGISTER 17" 

bye 000001 ILF = B1T00 sILLEGAL FUNCTION i 4 

1146 115760 NDTMSK = DCK!DTE!WLE! AOE! HCRC!HCE!ECH!WCFIFER 17" 

1147 s'NDTMSK'' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 17 

1168 sCOMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS oe 

1150 zRMAS ATTENTION SUMMARY REGISTER Hic 

rT 

1152 000377 ATNMSK = 377 :MASK FOR ATTENTION BITS He. 
4 

1134 :RMLA LOOK AHEAD REGISTER pas 

1156 002000 SC4 = B1T10 :SECTOR COUNT = 16 17, 

1157 001000 $c3 = B1T09 :SECTOR COUNT = 8 17 

1158 000400 $C2 = BIT08 sSECTOR COUNT = 4 17% 

1159 000200 $C1 : B1T07 sSECTOR COUNT = 2 17 

1160 000100 $c = BIT06 :SECTOR COUNT = 1 a 

1162 003700 SCTMSK = 003700 :SECTOR COUNT MASK Le 

1164 ;RMMR MAINTENANCE REGISTER re 

1166 : WRITE ONLY BITS 17 

1167 


x 
a 
— 
N™N 
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1168 100000 DBCK BIT15 ;DEBUG CLOCK 
1169 040000 DBEN BIT14 ;DEBUG CLOCK ENABLE 
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CZRMKA.P11 O5-APR-78 14:38 RMO3 REGISTER BIT DEFINITIONS Cz 
1170 0000 DEBL = BIT13 DIAGNOSTIC END OF BLOCK 
1171 010000 DTO = BIT12 s:DIAGNOSTIC TIMEOUT 
1172 004000 MCLK = BIT11 MAINTENANCE CLOCK 
1173 002000 MRD = BIT10 zREAD DATA 
1174 001000 MUR = BITO9 UNIT READY 
1175 000400 MOC = BIT08 ON CYLINDER 
1176 000200 MSER = BIT07 ;SEEK ERROR 
1177 000100 MDF = BIT06 sDRIVE FAULT 
1178 000040 MS = BIT05 SECTOR PULSE 
1179 000010 MWP = BIT03 WRITE PROTECT 
1180 000004 MI = BIT02 ; INDEX PULSE 
1181 000002 MSC = B1T01 SECTOR COMPARE 
1182 000001 DMD 5 81100 ;DIAGNOSTIC MODE 
at 051401 MRIAAA = DMD! MUR !DBEN! MOC !DTO 
1185 : READ ONLY BITS 
1186 
1187 100000 occ = BIT15 OCCUPIED 
1188 040000 RG = BIT14 ;RUN AND GO 
1189 020000 EBL = BIT13 sEND OF BLOCK 
1190 010000 REX = BIT12 EXCEPTION 
1191 004000 ESRC = BIT11 ENABLE SEARCH 
1192 002000 PLFS = B1T10 ;LOOKING FOR SYNC 
1193 001000 ECRC = BIT09 ENABLE CRC OUT 
1194 000400 PDA = BIT08 DATA AREA 
1195 000200 PHA = B1T07 ;HEADER AREA 
1196 000100 CONT = BIT06 3 CONTINUE 
1197 000040 wC = BIT05 WORD CLOCK 
1198 000020 EECC = BIT04 ENABLE ECC OUT 
1199 000010 MWD = BIT03 WRITE DATA BIT 
1200 000004 LS = BITO2 sLAST SECTOR 
1201 000002 LST - BIT01 sLAST SECTOR AND TRACK 
sot 000001 DMD = BIT00 ;DIAGNOSTIC MODE 
Soe sRMDT ORIVE TYPE REGISTER 
1206 100000 NSA = BIT15 NOT SECTOR ADDRESSED=0 
1207 040000 TAP = BIT14 ; TAPE DRIVE = 0 
1208 020000 MOH = BIT13 :MOVING HEAD = 1 
iste 004000 DRQ = BIT11 DRIVE REQUEST REQUIRED 
1211 020024 SNGPRT = 020024 SINGLE PORT DRIVE TYPE 
3 024024 DULPRT = 024024 DUAL PORT DRIVE TYPE 
Ht s:RMOF OFFSET REGISTER 
1216 010000 FMT16 == BIT12 316 BIT WORD FORMAT 
1217 004000 ECI = BIT11 ECC INHIBIT 
1218 002000 HCI = B1T10 sHEADER COMPARE INHIBIT 
1219 000200 OFD = BIT07 OFFSET FORWARD 
Hf 5 of 161577 XNUOF = 161577 UNUSED BITS OF RMOF 
1222 
1223 RMDC DESIRED CYLINDER ADDRESS REGISTER 
1224 001777 CYLMSK = 1777 sMASK FOR CYLINDER ADDRESS 


1225 176000 XNUDC == 176000 UNUSED BITS OF RMOC 
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100000 


000001 


100000 


001567 


100000 
040000 


MACY11 30A(1052) 
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RMO3 REGISTER BIT DEFINITIONS 


;RMMAR2 


DPE 
XNUER2 
- SBTTL 


MSE 
USE 


MAINTENANCE REGISTER #2 


READ ONLY BITS 
= BIT15 PORT A REQUEST 

;PORT B REQUEST 

: TAG CONTROL 

; COMMAND SEQUENCE TEST BIT 
;CONTROL OR CYLINDER TAG 
CONTROL OR HEAD TAG 

;TAG BUS 


ERROR REGISTER 2 


BIT15 ;BAD SECTOR ERROR 
BIT14 SEEK INCOMPLETE 

BIT13 OPERATOR PLUG ERROR 
BIT12 : INVALID COMMAND ERROR 
BIT11 sLOSS OF SYSTEM CLOCK 
BIT10 :LOSS OF BIT CLOCK 
B1T07 sDEVICE CHECK 

B1T03 DATA PARITY ERROR 
001567 ;UNUSED BITS OF RMER2 


MNEMONICS 


BIT15 MANUFACTURING DETECTED SECTOR ERROR 
BIT14 USER DETECTED SECTOR ERROR 


RMO3 REGISTER INDEX VALUES 


sCONTROL STATUS REGISTER 
DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
sERROR REGISTER 1 
ATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 
MAINTENANCE REGISTER 
sORIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 

DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER 2 
ERROR REGISTER 2 

ECC POSITION REGISTER 


vo 
@ 
o 
a 
aD 
= 
x 


SEQ 0028 
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CZRMKA.P11 O5-APR-78 14:38 RMO3 REGISTER INDEX VALUES 
1282 000046 RMEC2 = 46 sECC PATTERN REGISTER 
1283 000050 ILRGS5SO = 50 ILLEGAL REGISTER 50 
1284 000052 ILRGS2 = 52 ILLEGAL REGISTER 52 
1285 000054 ILRGS4 = 54 ILLEGAL REGISTER 54 
1286 000056 ILRGS5S6 = 56 s ILLEGAL REGISTER 56 
1287 000060 ILRG6O0 = 60 ILLEGAL REGISTER 60 
1288 000062 ILRG62 = 62 ILLEGAL REGISTER 62 
1289 000064 ILRG64 = 64 ILLEGAL REGISTER 64 
1290 000066 ILRG66 = 66 ILLEGAL REGISTER 66 
1291 000070 ILRG70 = 70 ILLEGAL REGISTER 70 
1292 000072 ILRG72 = 72 ILLEGAL REGISTER 72 
1293 000074 ILRG74 = 74 ILLEGAL REGISTER 74 
Soe 000076 ILRG76 = 76 ILLEGAL REGISTER 76 
1296 
4 344 000077 IDXMSK = 77 MASK FOR REGISTER INDEX NUMBER 
344 -SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
td) sRMCS1 CONTROL STATUS REGISTER #1 
1303 100000 Sc = BIT15 > SPECIAL CONDITION-READ ONLY 
1304 040000 TRE = BIT14 ; TRANSFER ERROR 
1305 020000 MCPE = BIT13 ;MASSBUS CONTROL BUS PARITY 
1306 sERROR-READ ONLY 
1307 002000 PSEL = BIT10 PORT B SELECT 
1308 001000 Al7 = BITO9 s ADDRESS EXTENSION 
1309 000400 A16 = B1T08 ADDRESS EXTENSION 
1310 000200 RDY = B1107 ;READY-READ ONLY 
af 000100 IE = BIT06 ; INTERRUPT ENABLE 
ia? zRMCS2 RH CONTROL STATUS REGISTER #2 
1315 100000 DLT = BIT15 DATA LATE-READ ONLY 
1316 040000 WCE = BIT14 sWRITE CHECK ERROR-READ ONLY 
1317 020000 UPE = BIT13 sUNIBUS PARITY ERROR 
1318 010000 NED = BIT12 sNONEXISTANT DRIVE-READ ONLY 
1319 004000 NEM = BIT11 sNONEXISTANT MEMORY-READ ONLY 
1320 002000 PGE = BIT10 PROGRAM ERROR-READ ONLY 
1321 001000 MXF = BITO9 MISSED TRANSFER 
1322 000400 MDPE = B1T08 ;MASSBUS DATA BUS PARITY 
1323 sERROR-READ ONLY 
1324 000200 OR = B1707 ;OUTPUT READY-READ ONLY 
1325 000100 IR = BIT06 ; INPUT READY-READ ONLY 
1326 00040 CLR = BITO5S CONTROLLER CLEAR 
1327 000020 PAT = B1T04 ;PARITY TEST 
1328 000010 BAI = BITO3 ;UNIBUS ADDRESS INCREMENT 
1329 ; INHIBIT 
1330 000004 U2 = BIT02 ;UNIT SELECT 
1331 000002 U1 = B1T01 sUNIT SELECT 
aa 000001 ud = B1T00 UNIT SELECT 
1334 UNIT SELECT MASK 
434 000007 UNTMSK = 7 UNIT SELECT MASK 


1337 sRMCS3 RH70 CONTROL STATUS REGISTER #3 
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000174 
000176 


000046 
000052 


000200 


100000 


000001 


000000 


000052 


176700 
120254 


000000 


000174 
000000 
000000 


000200 


000200 


000200 
000137 


001100 


002632 
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ad ADDRESS PARITY ERROR 

= DATA PARITY ERROR HIGH WORD 
s DATA PARITY ERROR LOW WORD 
= WRITE CHECK ERROR HIGH WORD 
° WRITE CHECK ERROR LOW WORD 
s ;DOUBLE WORD TRANSFER 

wd : INTERRUPT ENABLE 

= INVERT PARITY CHECK 

ad ; INVERT PARITY CHECK 

= zs INVERT PARITY CHECK 

= B1T00 ; INVERT PARITY CHECK 

RH CONTROLLER REGISTER INDEX VALUES 


; CONTROL, STATUS REGISTER 
;WORD COUNT REGISTER 

;BUS ADDRESS REGISTER 

; CONTROLLER STATUS REGISTER 
DATA BUFFER 

;BUS ADDRESS EXTENSION 
CONTROL STATUS REGISTER #3 


176700 ;UNIBUS ADDRESS 
120254 :UNIBUS VECTOR ADDRESS AND PRIORITY 


AVECT1 


-SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.#2,HALT"’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:*LOCATION 5 Satna 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: . WORD 0 3; SOFTWARE DISPLAY REGISTER 
SWREG: ~-WORD 0 :SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 

OES SPIT IIIT iit itil iii ii i ist iii iii i iiiiiiititiiiiiiiiiiiiiiiiy) 

sHOOKS REQUIRED BY ACT11 
$SV SAVE PC 

3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


3:2)SET LOC.52 TO ZERO 
3: RESTORE PC 


-SBTTL STARTING ADDRESS 
; THE PROGRAM sige AT LOCATION 200 
JMP START ; JUMP TO START OF PROGRAM 


-=1100 
-SBTTL APT PARAMETER BLOCK 


SEQ 0030 





Ce ee ee eee eee eee ee ee ee ee ee 
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PUMA eeeeeeeeeeeeeeeeeeeeeeeekeeeeeeeeeeeeeeeeeeeeneteeneeeenee 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
ETT I IST II ICTS iii iit iii ititititititititiiiiiititititiiiiiis, 
001100 = 3;SAVE CURRENT LOCATION 
.=2 :;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 3;FOR APT START UP 
. ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 ;;POINT TO APT HEADER BLOCK 
001100 ~-=.$X 5 ;RESET LOCATION COUNTER 
PETIT T IT TT ITT titi tari titi iti titi iiitititiiititiiiiiiiiiitiii ts 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


001100 SAPTHD: 

001100 000000 SHIBTS: .WORD 0 ;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001102 SMBADR: .WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

001104 STSTM: .WORD 1 ;;RUN TIM OF LONGEST TEST 

001106 SPASTM: .WORD 2 7;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001110 SUNITM: .WORD 2 ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001112 -WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX~-E TABLE (WORDS) 


001114 TAGADR 





PEPIPOAPIADADNG ND PD AD ND NO NOPD APD PG POP NOPE POPU PO PO NOPE PO POPUP POPU MPP PUM PUMP M MN NM M MMM MMMM 
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-SBTTL COMMON TAGS 


FP RARER AREER EAE EERE RA AA EE ARATE AERA EAAAAREAKEREREREAREREREEE 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


001114 -=TAGADR 
001114 SCMTAG: 7:START OF COMMON TAGS 


000000 - WORD 
0 STSTNM: .BYTE :; CONTAINS THE TEST NUMBER 
: .BYTE 7; CONTAINS ERROR FLAG 
«WORD 7;CONTAINS SUBTEST ITERATION COUNT 
: WORD ::CONTAINS SCOPE LOOP ADDRESS 
: WORD ; CONTAINS SCOPE RETURN FOR ERRORS 
: WORD >:CONTAINS TOTAL ERRORS DETECTED 
: .BYTE :: CONTAINS ITEM CONTROL BYTE 
: .BYTE CONTAINS MAX. ERRORS PER TEST 
- WORD ;CONTAINS PC OF LAST ERROR INSTRUCTION 
::CONTAINS ADDRESS OF ‘GOOD DATA 
;;CONTAINS ADDRESS OF ‘BAD’ DATA 
;;CONTAINS ‘GOOD" DATA 
;:CONTAINS "BAD* DATA 
7 ;RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


SWR: zs ADDRESS OF SWITCH REGISTER 
DISPLAY: ; ADDRESS OF DISPLAY REGISTER 
STKS: 3:TTY KBD STATUS 
STKB: 3;TTY KBD BUFFER 
STPS: zi; TTY PRINTER STATUS REG. ADDRESS 
$TPB: 77 TTY PRINTER BUFFER REG. ADDRESS 
S$NULL: . 3: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: . 7 :CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: . >; INSERT FILL CHARS. AFTER A “LINE FEED" 
: z:""TERMINAL AVAILABLE’ FLAG (B1T<07>=0=YES) 
7;USER DEFINED 
3;USER DEFINED 
7; ;USER DEFINED 
7;USER DEFINED 
Sear DEFINED 
3MAX. NUMBER OF ITERATIONS 

: sESCAPE ON ERROR ADDRESS 

000377 Cine <207><377><377> «CODE FOR BELL 

: /7/ 7 ;QUESTION MARK 
015 : <15> 3; CARRIAGE RETURN 
001220 000012 : . <12> 7;LINE FEED 
FARRAR AAA REAR EAA AE AAA ARETE AEE AEE RARER KARA ES 


-SBTTL APT MAILBOX-ETABLE 


SBDDAT: 


SAUTOB: 
SINTAG: 


ooooooo°oo°o—-co°ceo°o°oo 


oon ee 


PRA AAA AERA AAA AAA AEE EAA EEA AREER EAR RERE REE 


-NLIST ME 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
2 
5 
5 
5 
5 
2 
2 
2 
2 
5 
5 
2 
2 
2 
2 
2 
2 
2 
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1471 EVEN 

1472 001222 SMAIL: ;;APT MAILBOX 

1473 001222 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 

1474 001224 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

1475 001226 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 

1476 001230 000000 SPASS: .WORD APASS ;;PASS COUNT 

1477 001232 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

1478 001234 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 

1479 001236 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 

1480 001240 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

1481 001242 SETABLE: :;APT ENVIRONMENT TABLE 

1482 001242 000 SENV: .BYTE AENV ENVIRONMENT BYTE 

1483 001243 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 

1484 001244 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

1485 001246 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 

1486 001250 000000 SCPUOP: .WORD ACPUOP ;;CPU TYPE, yr — & 

1487 s* BITS 15-11=CPU T 

1488 s# 11/04=01, 1/05= 02,11/20=03,11/40=04,11/45=05 
1489 ;* 11/70=06 ,PDQ=07,a=10 
1490 s* BIT 10=REAL TIME CLOCK 

1491 :* BIT Q9=FLOATING POINT PROCESSOR 
1492 bel BIT 8=MEMORY MANAGEMENT 

1493 001252 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.MA.S. BYTE 

1494 001253 000 SMTYP1: .BYTE AMTYP1 ;;MEM. TYPE,BLK#1 

1495 se MEM.TYPE BYTE <== (HIGH BYTE) 
1496 :* 900 NSEC CORE=001 

1497 : ° 300 NSEC BIPOLAR=002 
1498 : 500 NSEC MOS=003 

1499 001254 000000 SMADRI: -WORD AMADR1 ;;HIGH ADDRESS ,BLK#1 

1500 3* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
1501 001256 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 

1502 001257 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK#2 

1503 001260 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK#2 

1504 001262 000 SMAMS3: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 

1505 001263 000 SMTYP3: .BYTE AMTYP3 ;;MEM.TYPE,BLK#3 

1506 001264 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS, BLK#3 

1507 001266 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 

1508 001267 000 SMTYP4: .BYTE AMTYP4 ;;MEM. TYPE BLK#4 

1509 001270 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS,BLK#4 

1510 001272 120254 SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
1511 001274 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
1512 001276 176700 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
1513 001300 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 

1514 001302 000000 SCDW1: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORD#1 
1515 001304 000000 $SCDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
1516 001306 000000 SDDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 

1517 001310 000000 SDDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORD#1 

1518 001312 000000 SDDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 

1519 001314 000000 SDDWS: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORD#3 

1520 001316 000000 SDDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 

1521 001320 000000 SDDWS: .WORD ADDWS  ;;DEVICE DESCRIPTOR WORD#S 

1522 001322 000000 SDDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 

1523 001324 000000 SDDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORD#7 

1524 001326 SETEND: 

1525 ~MEXIT 

1526 
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1527 

1528 

E44 -SBTTL REGISTER INPUT BUFFER 

1531 THE REGISTER INPUT BUFFER IS USED FOR STORING REGISTER 
Ft 4 CONTENTS AS THEY ARE READ FROM THE DEVICE. 

1534 001326 000000 RMCS1I1: .WORD ;CONTROL,STATUS REGISTER #1 
1535 001330 000000 RMWCI: .WORD ;WORD COUNT REGISTER 

1536 001332 000000 RMBAI: .WORD ;BUS ADDRESS REGISTER 

1537 001334 000000 RMDAI: .WORD DISK ADDRESS REGISTER 

1538 001336 000000 RMCS21: .WORD CONTROL, STATUS REGISTER #2 
1539 001340 000000 RMDSI: .WORD DRIVE STATUS REGISTER 

1540 001342 000000 RMER1I: .WORD sERROR REGISTER 1 

1541 001344 000000 RMASI: .WORD ATTENTION SUMMARY REGISTER 
1542 001346 000000 RMLAI: .WORD ;LOOK AHEAD REGISTER 

1543 001350 000000 RMDBI: .WORD DATA BUFFER 

1544 001352 000000 RMMR1I: .WORD MAINTENANCE REGISTER #1 
1545 001354 000000 RMDTI: .WORD DRIVE TYPE REGISTER 

1546 001356 000000 RMSNI: .WORD SERIAL NUMBER REGISTER 
1547 001360 000000 RMOFI: .WORD OFFSET REGISTER 

1548 001362 000000 RMDCI: .WORD ;DESIRED CYLINDER REGISTER 
1549 001364 000000 RMHRI: .WORD sHOLDING REGISTER: 

1550 001366 000000 RMMR21: .WORD sMAINTENANCE REGISTER #2 
1551 001370 000000 RMER2I: .WORD sERROR REGISTER 2 

1552 001372 000000 RMEC1I: .WORD ECC POSITION REGISTER 

1553 001374 000000 RMEC21: .WORD ;ECC PATTERN REGISTER 

1554 001376 000000 RMBAEI: .WORD ;BUS ADDRESS EXTENSION REGISTER 

Ht 44 001400 000000 RMCS31: .WORD CONTROL, STATUS REGISTER #3 

1557 

1558 

ted -SBTTL REGISTER OUTPUT BUFFER 

1561 THE REGISTER OUTPUT BUFFER IS USED FOR ASSEMBLING DATA TO 
at BE WRITTEN TO THE DEVICE. 

1564 001402 000000 RMCS10: .WORD ;CONTROL,STATUS REGISTER #1 
1565 001404 000000 RMWCO: .WORD ;WORD COUNT REGISTER 

1566 001406 000000 RMBAO: .WORD BUS ADDRESS REGISTER 

1567 001410 000000 RMDAO: .WORD DISK ADDRESS REGISTER 

1568 001412 000000 RMCS20: .WORD CONTROL, STATUS REGISTER #2 
1569 001414 000000 RMDSO: .WORD DRIVE STATUS REGISTER 

1570 001416 000000 RMER10: .WORD sERROR REGISTER 1 

1571 001420 000000 RMASO: .WORD ATTENTION SUMMARY REGISTER 
1572 001422 000000 RMLAO: .WORD ;LOOK AHEAD REGISTER 

1573 001424 000000 RMDBO: .WORD DATA BUFFER 

1574 001426 000000 RMMR10: .WORD MAINTENANCE REGISTER #1 
1575 001430 000000 RMDTO: .WORD DRIVE TYPE REGISTER 

1576 001432 000000 RMSNO: .WORD SERIAL NUMBER REGISTER 
1577 001434 000000 RMOFO: .WORD OFFSET REGISTER 

1578 001436 000000 RMDCO: .WORD DESIRED CYLINDER REGISTER 
1579 001440 000000 RMHRO: .WORD sHOLDING REGISTER 

1580 001442 000000 RMMR20: .WORD sMAINTENANCE REGISTER #2 
1581 001444 000000 ’ RMER2O: .WORD ERROR REGISTER 


2 
1582 001446 000000 RMEC10: .WORD ECC POSITION REGISTER 
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001450 000000 RMEC20: .WORD ;ECC PATTERN REGISTER 
001452 000000 RMBAEO: .WORD ;BUS ADDRESS EXTENSION REGISTER 
001454 000000 RMCS30: .WORD CONTROL, STATUS REGISTER #3 


-SBTTL TEST QUE 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
“THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. A ZERO 
:WORD IS A BLANK AND REPRESENTS THE END OF THE QUE. 


001456 000012 TSTQUE: . 10. : TEST QUE 


001502 172540 SLPCSR: . 172540 :KW11-P CONTROL + STATUS REGISTER 
SLPCSB: . 172542 :KW11-P COUNT SET BUFFER 
SLPVEC: . i sKW11-P INTERRUPT VECTOR 
SLLCSR: . 177546 ;KW11-L CONTROL + STATUS REGISTER 
SLLVEC: 100 :KW11-L INTERRUPT VECTOR 


102 
; STORAGE FOR PRIORITY 
: STORAGE FOR ELAPSED TIME 
; STORAGE FOR REMAINING TIME 
. ;ADDRESS OF START CLOCK SUB 
001530 000000 STOP:  .WORD ADDRESS OF STOP CLOCK SUB 


;PUT TAGS HERE 
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ob -SBTTL ERROR POINTER TABLE 

1612 ;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

1613 :*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

1614 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1615 ;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

Ht 3; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1618 s¢ EM :;POINTS TO THE ERROR MESSAGE 

1619 :* DH 3:POINTS TO THE DATA HEADER 

1620 ;¢ DT ::POINTS TO THE DATA 

1621 :* DF 3;POINTS TO THE DATA FORMAT 

1622 

1623 

1624 001532 SERRTB: 

1625 





L 3 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 37 SEQ 0037 
CZRMKA.P11 OS-APR-78 14:38 ERROR POINTER TABLE 


ERROR 1 CANNOT CLEAR NED STATUS 
001532 031710 


001540 037760 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 


001542 031716 
001544 037620 
001546 037726 
001550 037762 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


001552 031744 
001554 000000 
001556 000000 
001560 000000 


ERROR CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


001562 031764 
001564 000000 
001566 000000 
001570 000000 


ERROR CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


001572 032006 
001574 037624 
001576 037730 
001600 037764 


CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


001602 032032 


037764 


: ERROR CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
; OF DEVICE REGISTERS 


032054 
037630 
037730 
001620 337764 
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SN NN SNS SSNS 
PORONO RY et ot ot ot ot 
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AN 
mrr 
aus 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


001622 
001624 
001626 
001630 


001650 


001662 


001670 


001672 
001674 
001676 
001700 


001702 
001704 
001706 
001710 
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032076 
000000 
000000 
000000 


032114 
000000 
000000 
000000 


032132 


000000 


032150 
000000 
000000 
000000 


032166 


000000 


032204 
000000 
000000 
000000 


032222 
000000 
000000 
000000 
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; ERROR 


; ERROR 


; ERROR 


7 ERROR 


7 ERROR 


10 


REGISTER SELECT 1 


REGISTER SELECT 1 


REGISTER SELECT 2 


REGISTER SELECT 2 


REGISTER SELECT 4 


REGISTER SELECT 4 


REGISTER SELECT 8 


APPEARS 


APPEARS 


APPEARS 


APPEARS 


APPEARS 


APPEARS 


APPEARS 


SEQ 0038 
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sERROR 17 REGISTER SELECT 8 APPEARS S-A~-1 


001712 032240 
001714 
001716 
001720 000000 


OPI SET WITH SEACH TIMOUT DISABLED 


001722 032256 
001724 037614 
001726 037724 
001730 037760 


SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET. 


001732 032300 
037614 
037724 
037760 


; ERROR DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED 


001742 032322 
001744 037614 
001746 037724 
001750 037760 


SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 
001752 032346 


001760 037760 


: ERROR DID NOT SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET 


001762 032372 
001764 037614 
001766 037724 
001770 037760 


7 ERROR SET WITH SECTOR PULSE DURING FORMAT CHANGE 


001772 032416 
037614 
037724 
037760 





B 4 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) OS-APR-78 14:49 PAGE 40 SEQ 0040 
CZRAKA.P11 O5-APR-78 14:38 ERROR POINTER TABLE 


ERROR 26 MBA CLR L IS STUCK ACTIVE 


032436 


000000 


COULD NOT SET DTE AFTER FORMAT CHANGE 
002012 032470 
002014 037614 
002016 037724 
002020 037760 
CANNOT SET PROM STROBE WITH BIT CLOCK 
002022 032510 
002024 037614 
002026 037724 
002030 037760 
7 ERROR CANNOT CLEAR RMER1,DTE 
032530 
037614 
037724 
037760 
PROM STROBE RESET EARLY 
002042 032544 
037614 
037724 
037760 
7 ERROR PROM STROBE SET EARLY 


032556 


037760 


7 ERROR LOOKING FOR SYNC SET EARLY 
032570 


002070 037760 
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; ERROR LOOKING FOR SYNC DID NOT SET 
002072 032602 
002074 037614 
002076 037724 
002100 037760 
; ERROR PROM STROBE SET WHILE LOOKING FOR SYWC 


002102 032614 
002110 037760 


; ERROR SYNC DETECTED WITH WRONG PATTERN 
002112 032634 
002114 037670 


002116 037750 
002120 037776 


SYNC NOT DETECTED 
002122 032664 


002130 037760 


; ERROR DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC 


002132 032706 
002134 037614 
002136 037724 
002140 037760 


7 ERROR WRITE GATE DID NOT COME ON OR RESET EARLY 


002142 032734 
002144 037614 
002146 037724 
002150 037760 


INCORRECT SYNC PATTERN DURING HEADER 
002152 032752 


002160 000000 
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002170 


002172 
002174 
002176 
002200 


002202 
002204 
002206 
002210 


002212 
002214 
002216 
002220 


002222 
002224 
002226 
002230 


002232 


002240 


002242 


002244 


002246 
002250 
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032752 
037764 
033004 
037614 


037724 
037760 


033020 
037614 
037724 
037760 
033034 
037760 
033052 
037614 
037724 
037760 
033154 


037760 


033104 


037766 


MACY11 30A(1052) 


; ERROR 


ERROR 


7 ERROR 


; ERROR 


ERROR 


7 ERROR 


7 ERROR 
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INCORRECT SYNC PATTERN DURING HEADER 


HEADER AREA DID NOT COME ON OR RESET EARLY 


CRC ENABLE DID NOT SET 


INCORRECT HEADER GENERATED DURING WRITE 


READ GATE INCORRECT DURING HEADER AREA 


UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE 


INCORRECT HEADER READ IN DIAGNOSTIC MODE 


SEQ 0042 


C2! 
C2! 
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002252 
002254 
002256 
002260 


002262 
002264 
002266 
002270 


002272 
002274 
002276 
002300 


002302 
002304 
002306 
002310 


002312 
002314 
002316 
002320 
002322 


002330 


002332 


002340 
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037510 
037760 
033136 
037614 


037724 
037760 


033154 
037614 
037724 
037760 
033172 
037760 
033206 
037644 
037736 
037766 
033222 


037760 


033236 


037766 


MACY11 30A(1052) 
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; ERROR 


; ERROR 


s ERROR 


7 ERROR 


7 ERROR 


; ERROR 
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53 


EMT276 
EHT1 
EDT1 
EFT1 


INCORRECT TAG BUS DURING DATA COMMAND 


DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND 


DATA AREA DID NOT COME ON OR RESET EARLY 


ECC ENABLE DID NOT SET 


DEVICE IS NOT AN RMO3 


DEVICE AVAILABLE IS NOT SET 


INCORRECT ECC PATTERN GENERATED DURING WRITE 


SEQ 0043 
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002342 
002344 
002346 
002350 


002352 
002354 
002356 
002360 


002362 
002370 
002372 
002374 


002376 
002400 


002402 


002410 


002412 
002414 
002416 
002420 


002422 


002430 


DSKLS PRT 2 
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033254 
037614 
037724 
037760 


033272 
037614 
037724 
037760 


033304 


037760 


033320 
037614 
037724 
037760 


033332 
000000 
000000 
000000 


033346 
000000 
000000 
000000 


033364 


000000 
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; ERROR CANNOT CLEAR PROM STROBE WITH BIT CLOCK 


DATA AREA DID NOT RESET 


UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE 


; ERROR INCORRECT DATA TRANSFERRED TO MEMORY 


; ERROR 


s ERROR 


SEQ 0044 
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CZ 
CZ 


KAO 


MKA. 


RM03/2 
P11 
002432 


002440 


002442 
002444 
002446 
002450 


002452 
002454 
002456 
002460 


002462 
002464 
002466 
002470 


002472 
002474 
002476 
002500 


002502 


002510 


002512 
002514 
002516 
002520 


002522 


002530 
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033404 


000000 


033430 
000000 
000000 
000000 


033454 
000000 
000000 
000000 


033474 
000000 
000000 
000000 


033504 
000000 
000000 
000000 


033516 


000000 


033532 
000000 
000000 
006000 


035340 
037710 
037750 
037776 
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ERROR POINTER TABLE 
EMT71 
0 


7; ERROR 


100 CANT SET VOLUME VALID 


EMT170 i 
EHT150 
EDT115 
EFTI15 


SEQ 0045 
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ERROR 101 RUN AND GO WONT SET 


002532 037470 EMT275 
EHT1 
EDT1 

002540 037760 EFT 


ERROR 102 SEARCH ENABLE WONT SET 


002542 035366 EMT172 
002544 037614 EHT1 
002546 037724 EDT 
002550 037760 EFI1 


103 OCCUPIED IS INCORRECT FOR FUNCTION CODE 


002552 035404 EMT173 
002554 037710 EHT150 
002556 037750 EDT115 
002560 037776 EFT115 


104 READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 
002562 035426 _— 


0 
002570 000000 0 


105 READ IN PRESET DIDNT CLEAR RMOF 


002572 035454 EMT175 
002574 037614 EHT1 
002576 037724 EDT1 
002600 037760 EFT1 


106 READ IN PRESET DIDNT CLEAR RMDA 


002602 035472 EMT176 
002604 

002606 

002610 037760 


; ERROR READ IN PRESET DIDNT CLEAR RMDC 


002612 035510 
002614 037614 
002616 037724 
002620 037760 
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sERROR 110 CANT SET OFFSET MODE BY OFFSET COMMAND 
035526 EMT200 
EHT1 


EDT 
002630 037760 EFT 


;PUT ERROR TABLE HERE 


4 
4 
4 
é 
2 
2 
é 
é 
ra 
2 
é 
2 
2 
4 
2 
é 
2 
2 
2 
2 
2 
4 
2 
2 
2 
2 
2 
2 
é 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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002632 


002632 
002634 


002636 
002642 
002644 
002650 
002652 


002656 


002770 


002776 


003120 


000240 
000005 


012706 
005026 
022706 
001374 
012706 


012737 


012737 


013746 


001012 
000403 


012637 


005037 
132737 
001403 
012737 


012746 
012746 
000002 


001114 
001154 
001100 
026042 


002770 


000004 
003036 
177570 
177570 
177777 


003044 
000176 
000174 
000004 


001230 
000200 


001244 


000140 
003120 


J 4 
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000020 


021500 


001131 
001122 
001124 


000004 


001243 
001154 


START OF PROGRAM 
-SBTTL START OF PROGRAM 


START: 
7 CLEAR — FOR TEST EXECUTION 
N 
RESET s INITIALIZE THE SYSTEM 


~SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (SCMTAG) AREA 
M #SCMTAG,R6 z:FIRST LOCATION TO BE CLEARED 
(R6)+ :;CLEAR MEMORY LOCATION 
wd ; DONE? 


3;LOOP BACK IF NO 
MOV #STACK,SP :;SETUP THE STACK POINTER 
sc INITIALIZE A FEW VECTORS 
MOV #SSCOPE ,a#IOTVEC ist VECTOR FOR SCOPE ROUTINE 
#340, asiOTVEC+2 ;;LEVEL 7 
#SERROR ,@#EMTVEC et VECTOR FOR ERROR ROUTINE 
#340 a#EMTVEC+2 ;;LEVEL 7 
#STRAP a#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,a#TRAPVEC+2;LEVEL 7 
#SPWRON Q@#PWRVEC ;;POWER FAILURE VECTOR 
#340 ,a#PWRVEC+2 ;;LEVEL 7 
SENDCT,SEOPCT ;;SETUP END-OF-PROGRAM COUNTER 
STIMES s: INITIALIZE NUMBER OF ITERATIONS 
SESCAPE 3;CLEAR THE ESCAPE ON ERROR ADDRESS 
#1, SERMAX ;;ALLOW ONE ERROR PER TEST 
et ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
77;SIZE FOR A MARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
0 @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$,a#ERRVEC ;;SET UP ERROR VECTOR 
#DSWR,SWR 7:SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP, DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1,aSWR 7: TRY TO REFERENCE HARDWARE SWR 
66$ 7;BRANCH IF NO TIMEOUT TRAP OCCURRED 
: THE HARDWARE SWR IS NOT = -1 


65$ ; 
#65$, (SP) ESET UP FOR TRAP RETURN 


#SWREG, SWR ;:;POINT TO SOFTWARE SWR 
#DISPREG, DISPLAY 
(SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 


SPASS ;CLEAR PASS COUNT 
#APTSIZE,SENVM :ITEST USER SIZE UNDER APT 
67$ ;YES,USE NON-APT SWITCH 
#SSWREG,SWR | ::NO,USE APT SWITCH REGISTER 


#PR3,-(SP) 3;PUT NEW PS ON STACK 
#68$,-(SP) ;;PUT NEW PC ON STACK 
7;POP NEW PC AND PS 


SEQ 0048 


RNAV VARNA ANARNNNNNNNNNANANARNRNNARNANANNANANANNYRNRNN 
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CZRMKA.P11 O5-APR-78 14:38 TYPE PROGRAM NAME 


-SBTTL TYPE PROGRAM NAME 
:;TYPE THE NAME OF THE PROGRAM IF binge PASS 
003120 005227 177777 INC #-1 FIRST TIME? 
69$  TBRANCH IF NO 
021642 000042 #SENDAD ,a#42 33ACT=11? 
69$ : BRANCH IF YES 
104401 003204 708 ; TYPE ASCIZ STRING 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
005737 000042 TST a#42 3:ARE WE RUNNING UNDER XXDP/ACT? 
71$ 3;BRANCH IF YES 
001242 000001 SENV,#1 +3 ARE WE RUNNING UNDER APT? 
71$ BRANCH IF YES 
001154 000176 SWR,#SWREG - TESOFTWARE SWITCH REG SELECTED? 
72$ 3;BRANCH IF NO 
3:GET SOFT-SWR SETTINGS 


R 72$ 
112737 000001 001150 718: #1, SAUTOB ::SET AUTO-MODE INDICATOR 

003202 000432 aa or 698 :GET OVER THE ASCIZ 

Sata 54708: SASCIZ <CRLF>@CZRMKAO, RMO3/RMO2 DISKLESS DIAGNOSTIC PART II a<CRLF> 


FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE 
003270 005737 000042 TST be 1S LOC 42 ZERO ?? 
003274 001003 10$ :NO - NOT IN STANDALONE 
003276 105737 001242 TSTB SENV 71S APT ENVIRONMENT ZERO ?? 
eateer 001451 108 BEQ STANDALONE YES - PROGRAM IN STANDALONE 


PROGRAM NOT RUNNING IN STANDALONE ~ SEE IF thee, IS ALLOWED 
003304 132737 000200 001243 xXxSIZ: BITB seat 17, SENVM oo ALLOWED ? 


003312 001043 iN 
; #377, SDEVM YES - SET DEVICE MAP FOR ALL DEVICES 
003314 005037 001300 SDEVA ;CLEAR THE BIT MAP 
R1 START FROM THE DRIVE 0 
000001 #B1TO,R4 ;BIT MAP DOR DRIVE 0 
SBASE RO BASE ADDRESS 
000010 : #CLR,RMACS2(RO) ;LOAD THE DRIVE ADDRESS 
R1,RMCS2(RO) LOAD THE DRIVE ADDRESS 
RMCS2(RO) RS NEO BIT SET 
010000 #NED,R3 BRANCH IF so. 
16$ :TO NEXT DRIVE 
000000 RMCS1(RO) RS :CHECK THE DVA BIT 
004000 #O0VA,R3 DRIVE AVAILABLE ? 
16$ BRANCH IF DRIVE NOT AVAILABLE 
001300 R4,SDEVM ;SET THE BIT MAP FOR ALL AVAILABLE DRIVE 
000405 17$ DONT TYPE THE NONE EXIST MESG 


104401 031553 ,NOTEX : TYPE NOT EXIT MESSAGE 
R1,-(SP) [DRIVE NUMBER 


6 

0 

R1 ; INCREMENT THE DRIVE ADDRESS 
003412 006304 R4 ;SET UP THE BIT MAP FOR NEXT DRIVE 
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CZRMKA 


O5-APR-78 14:38 
003414 022701 000007 
103344 


003420 
003422 


003422 000137 004254 


L 4 
MACY11 30A(1052) O5-APR-78 14:49 PAGE 50 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


CMP #7,R1 
BHIS 15$ 
20$: 


:GO TO COMMON START CODE 
JMP CMNSTART 


sALL DRIVE ARE CHECKED ? 
BRANCH IF NOT 


SEQ 0050 





Mm 4 
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CZRMKA.P11 O5-APR-78 14:38 GET VALUE FOR SOFTWARE SWITCH REGISTER 
Sate 003426 STANDALONE : 
2319 003426 004737 026634 JSR PC ,STKINT 
2320 ;SEE IF THIS IS THE FIRST START AFTER PROGRAM WAS LOADED 
2321 003432 005327 000001 DEC #1 sFIRST START ?? 
2322 003436 100024 BPL 10$ svEs {3 
2323 
2324 
2325 ;SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
2326 003440 104401 031062 5$: TYPE -CNSLOO MAINTAIN PREVIOUS PARAMETERS?? 
2327 003444 104411 RDCHR GET RESPONSE 
2328 003446 012637 001176 MOV (SP)+,STMP1 ;ECHO RESPONSE 
2329 003452 104401 001176 TYPE -STMP1 
2330 003456 123727 001176 000131 CMPB STMP1,#'Y :YES , RESPONSE ?? 
2331 003464 001002 BNE 6$ NO! 
2332 003466 000137 004414 JMP READY , KEEP PREVIOUS PARAMETERS 
2333 003472 123727 001176 000116 68: CMPB STMP1,#'N NO RESPONSE ?? 
2334 003500 001420 BEQ 208 :GET NEW PARAMETERS 
2335 003502 104401 030725 TYPE , QSTMRK NOT YES OR NO, TYPE ‘'?"' 
2336 003506 000754 BR 5$ sRETRY 
2337 003510 10$: 
2338 
2339 SEE IF OPERATOR WANTS HELP FILE 
2340 003510 104401 030727 TYPE eHELPQST WANT HELP ?? 
2341 003514 104411 ROCHR GET RESPONSE 
2342 003516 012637 001176 MOV (SP)+, STAP1 ;SAVE AND ECHO RESPONSE 
2343 003522 104401 001176 TYPE .STMP1 
2344 003526 123727 001176 000131 CMPB STMP1,#°Y WAS IT A YES RESPONSE ?? 
2345 003534 001002 BNE 208 ;NO - DONT TYPE HELP 
2346 003536 104401 054062 TYPE HELP YES - TYPE HELP TEXT 
toed 003542 208: 
2349 SEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
2350 003542 104401 030763 TYPE -UBUSQST WANT TO CHANGE ADDRESS ?? 
2351 003546 104411 RDCHR GET RESPONSE 
2352 003550 012637 001176 MOV (SP)+,STMP1 ;SAVE AND ECHO RESPONSE 
2353 003554 104401 001176 TYPE /STMP1 
2354 003560 104411 RDCHR sREAD S CR 
2355 003562 005726 TST (SP)+ CLEAR THE STACK 
2356 003564 123727 001176 000131 CMPB STMP1,#'Y sWAS IT A YES RESPONSE ?? 
2357 003572 001137 BNE 90$ zNO !! 
tt) 003574 30$: 
2360 ;DIALOGUE TO CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR 
2361 003574 104401 031121 TYPE .CNSLO1 ;TYPE CURRENT BUS ADDRESS 
2362 003600 013746 001276 MOV $BASE ,-(SP) :;SAVE $BASE FOR TYPECUT 
2363 003604 104402 TYPOC ::GO TYPE--OCTAL ASCIICALL DIGITS) 
2364 0063606 104401 030716 TYPE -CLSPRN 
2365 003612 104413 RDOCT GET NEW BUS ADDRESS 

- 2366 003614 012637 001176 MOV (SP)+,STMP1 CARRIAGE RETURN?? 
2367 003620 001412 BEQ 50$ YES-SKIP TO NEXT ENTRY 
2368 003622 022737 160000 001176 CMP #160000,$TMP1 :BASE ADDRESS IN I/0 PAGE?? 
2369 003630 101403 BLOS 40$ E 
2370 003632 104401 031146 TYPE 2CNSLO2 TYPE WARNING MESSAGE 
2371 003636 000756 BR 30$ 


sRETRY 
2372 003640 013737 001176 001276 40$: MOV STMP1,$BASE ;STORE NEW BUS ADDRESS 
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CZRMKA.P11 
003646 


004072 


004072 


113737 


000736 
006337 


113737 


005037 


012737 


001272 


001176 


030716 
001176 
001000 
031257 
001176 


001176 


030716 
001176 
001176 
031367 


001176 
001176 
001176 
001176 
001176 
004176 


001300 
031414 
030721 


001176 
001176 
001176 


003304 
000377 


MACY11 30A(1052) O5-APR-78 


N 4 
14:49 PAGE 52 


SEQ 0052 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


001176 50$: SVECT1,STMP1 
STMP1+1 
,CNSLO3 


STMP1,-(SP) 
3 

0 

-CLSPRN 
(SP)+,$TMP1 
70$ 

#1000, S$TMP1 
60$ 

.CNSLO4 

508 
STMP1,SVECTI 
SVECT1+1,STMP1 
STMP1 

STMP1 

STMP1 

STMP1 

STMP1 
STMP1+1 


-CNSLOS 
STMP1,-(SP) 


1 


001176 


001272 
001176 


60$: 
70$: 


0 
-CLSPRN 


(SP)+,$TMP1 
90$ 
STMP1,#7 
80$ 
.CNSLO6 
70$ 


000007 


STMP1 
STMP1 
STMP1 
STMP1 
STMP1 
001273 STMP1,SVECT1+1 
90$: 


; DIALOGUE INPUT sevice NUMBERS 
CLR SDEVA 


-CNSLO7 
> PROMPT 


(SP)+,STMP1 
,STMP1 
STMP1,#°A 
110$ 


XSIZ 
#377, SDEVM 


000101 


001300 


; TYPE CURRENT VECTOR ADDRESS 


7;SAVE STMP1 FOR TYPEOUT 
3;GO TYPE--OCTAL ASCII 
3: TYPE 3 DIGIT(S) 

:; SUPPRESS LEADING ZEROS 


:GET NEW VECTOR ADDRESS 
: CARRIAGE RETURN? 

7 YES-SKIP TO NEXT ENTRY 
: VECTOR ADDRESS < 1000?? 


Aisa WARNING MESSAGE 


:STORE NEW VECTOR ADDRESS 
:TYPE CURRENT PRIORITY 


7;SAVE STMP1 FOR TYPEOUT 
3:GO0 TYPE--OCTAL ASCII 
zs TYPE 1 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 


;GET NEW PRIORITY 
CARRIAGE RETURN?? 
:YES-SKIP TO NEXT ENTRY 
steait PRIORITY?? 


TYPE WARNING MESSAGE 
sRETRY 
:STORE NEW PRIORITY 


;CLEAR DEVICE MAP 

TYPE INPUT INSTRUCTIONS 
;TYPE PROMPTING CHARACTER 
GET RESPONSE 

ECHO RESPONSE 


be ALL DRIVES?? 


N 
TO SIZE ALL POWER UP DRIVES 
;TEST ALL DEVICES 
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B 1408 SKIP TO NEXT ENTRY 
030721 1008: » PROMPT TYPE PROMPTING CHARACTER 
R GET RESPONSE 
001176 (SP)+,STAP1 ECHO RESPONSE 
001176 oSTMP1 
001176 000015 co CARRIAGE RETURN?? 


001176 000060 : STMP1,#°0 NUMBER < 0?? 
12 sVES!° 


0$ 3 Ee 
001176 000067 STMP1,#°7 ;NUMBER > 77? 
1308 3NO!! 
030725 : ,QSTMRK sTvPe “Y™ 
1008 


sRETRY 
001176 : Soe ee ;R1=DRIVE NUMBER 


# C7,R1 

ATNTBL(R1),R2 :DECODE DEVICE NUMBER 

# (377,R2 ;CLEAR UNUSED BITS 

R2,SDEVM ;SET DEVICE # IN MAP 
000377 001300 fA ies :DONE ?? 


101334 :NO 
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O5-APR-78 14:38 


CZRMKA.P11 
004254 


004422 


013700 


005011 


004737 


000775 


005737 


112737 
012737 


117737 


001300 


000001 


031700 
000002 


022464 


000042 
001242 
001154 


000001 
000140 


026634 
175030 


. 
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000001 


000001 
000176 


001150 
000032 


001234 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
CMNSTART: 
sASSEMBLE TEST QUE FROM DEVICE MAP 
MOV SDEVM,RO :R DEVICE MAP 


#TSTQUE+2,R1 :R1 = ADDRESS OF FIRST ENTRY IN QUE 
R1, TSTQUE INITIALIZE ENTRY POINTER 

#1.R2 :R2 = DEVICE POINTER . 
R3 7R3 = DEVICE NUMBER 

R2,RO :NO_!! THIS DEVICE IN MAP ?? 


208 
R3,(R YES - ENTER DEVICE NUMBER IN QUE 
ATNTBL(RS) 1(R1); “ENTER ATTENTION BIT IN QUE 
2,R1 ADVANCE ENTRY POINTER 
ZADVANCE DEVICE POINTER 
ony ALL DEVICES ?? 


[ADVANCE DEVICE NUMBER 
SENTER NEXT DEVICE 
258: TERMINATE TEST QUE 


:SIZE FOR CLOCK 
JSR PC,SIZCLK SEE IF CLOCK PRESENT 

B 40$ YES - CLOCK IS PRESENT 

308: NO CLOCK 


308 
40$: 


.SBTTL "y VALUE FOR SOFTWARE SWITCH REGISTER 
a#42 ARE WE RUNNING UNDER XXDP/ACT? 
ri $ BRANCH IF YES 
SENV,#1 37 ARE WE RUNNING UNDER APT? 
648 >;BRANCH IF YES 
SWR,#SWREG >; SOFTWARE SWITCH REG SELECTED? 
65$ ;;BRANCH IF NO 
7:;GET SOFT-SWR SETTINGS 


BR 65$ 
64$: #1,SAUTOB :;SET AUTO-MODE INDICATOR 


65$: 
#PR3,a#EMTVEC+2 : DROP PRIORITY DURING ERROR TYPEOUT 
READY: READY TO START TEST 
J PC, STKINT S INITIALIZE TTY 
@aTSTQUE ,SUNIT [LOAD UNIT NUMBER 





CZ 
CZ 
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CZRMKA.P11 OS-APR-78 14:38 REGISTER AND STORAGE USAGE 


~SBTTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGNMENTS 
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CZRMKA.P11 05-APR-78 14:38 REGISTER AND STORAGE USAGE 
2496 3 
2497 7RO z UNIBUS ADDRESS OF RH CONTROLLER 
2498 :R1 = ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
2499 : UNIT UNDER TEST 
2500 sR2,R3 = WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 
2501 ; SAVED BY SUBROUTINES 
2502 sR4,R5 = GENERAL WORKING REGISTERS, ARE NOT SAVED BY 
2503 : SUBROUTINES 
2504 7R6 = STACK POINTER 
T944 :R7 = LINKAGE REGISTER TO SUBROUTINES 
544 STORAGE ASSIGNMENTS 
2509 sSTMPO-STMP4 TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES 
2510 SGDDAT,SBDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
2511 7SGDADR,SBDADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 
cote ; ALSO THE ADDRESS OF A REGISTER ERROR 
2514 :$TSTIN = TEST NUMBER 
2515 :SUNIT = NUMBER OF DEVICE BEING TESTED 
2516 :RGINBF = THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 


2517 : EACH REGISTER, AND IS USED WHEN READING STATUS AND 

: CONTROL DATA 

2519 ;RGOTBF THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 
2520 : EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 
2521 ; WRITTEN IN REGISTERS 
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2522 SLARAA ARERR TAAAATARAAETAAAAA TAA A TET A EET AAA eee Rete ee teeeeeet 
Soe? :*TEST 1 TRANSFER TEST 
2525 SLUR R AAA R ATER AAA AREA AAA AEEA ETAT ATE AE HATE REA AAee eee tect teeteeet 
2526 004430 000004 TST1: SCOPE 
344 004432 012737 000001 001226 MOV #1,STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
2529 004440 000240 NOP 
2530 004442 012737 000024 001120 MOV #20.,SI1CNT 320 ITERATIONS 
2531 004450 112737 000061 001131 MOVB #1,SERMAX ;ONE ERROR ALLOWED 
2532 004456 012737 004472 001122 MOV #T1,$LPADR ;LOAD LOOP ON TEST ADDRESS 
seer Soeets 012737 004472 001124 , MOV #T1,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
Ve 
2535 004472 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
2536 004476 013700 001276 MOV SBASE,RO ;RO = UNIBUS ADDRESS OF UUT 
2537 004502 013701 001456 MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
2538 004506 012702 000000 MOV #0,R2 3R2 = REGISTER INDEX 
2539 004512 10$: 
2540 : CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
2541 004512 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
to 004520 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
2544 004524 016037 000010 001142 MOV RMCS2(RO) ,SBDDAT ;STORE RMCS2 AT $BDDAT 
2545 004532 032737 010000 001142 BIT #NED,SBDDAT 
2546 004540 001417 BEQ 208 
2547 004542 111137 001140 MOVB (R1),SGDDAT 
2548 004546 042737 177770 001140 BIC # CUNTMSK,S$GDDAT 
2549 004554 052737 000100 001140 BIS #IR,SGDDAT 
2550 004562 010037 001136 MOV RO, $BDADR 
2551 004566 062737 000010 001136 ADD #RACS2,S$BDADR 
2552 004574 104001 ERROR 1 
2553 004576 000500 BR 60$ 
2554 004600 208: 
2555 ;READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 
2556 ;DOES NOT SET ‘’NED'’ ERROR 
2557 004600 010003 MOV RO,R3 3R3 = REGISTER ADDRESS 
2558 004602 060203 ADD R2,R3 
2559 004604 011304 MOV (R3), R4 ;READ REGISTER 
2560 004606 032760 010000 000010 BIT #NED, RMCS2(RO) 71S ‘'NED'' SET?? 
2561 004614 001473 BEQ 70$ 3;NO!! 
2562 004616 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
Seer 004624 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
2565 004630 016037 000010 001142 MOV RMCS2(RO) ,SBDDAT ;STORE RMCS2 AT S$BDDAT 
2566 004636 032737 010000 001142 BIT #NED,SBDDAT 
2567 004644 001417 BEQ 30$ 
2568 004646 111137 001140 MOVB (R1),$GDDAT 
2569 004652 042737 177770 001140 BIC # CUNTMSK,SGDDAT 
2570 004660 052737 000100 001140 BIS #IR, yee AT 
2571 004666 010037 001136 MOV RO.$ 
2572 004672 062737 000010 001136 ADD rs SBDADR 
2573 004700 104001 ERROR 1 
2574 004702 000436 BR 608 
2575 004704 30$: 
2576 ;WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 


2577 DOES NOT SET ‘'NED’’ ERROR 
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004704 012713 000000 MOV #0, (R3) ;WRITE REGISTER 
004710 032760 010000 000010 BIT #NED, RMCS2 (RO) 31S ‘NED’ SET?? 
004716 001432 BEQ 708 ;NO!! 


004720 40$: 
;COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘'NED'’ ERROR - 
ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 
sAVAILABLE DEVICE REGISTER 
004720 062702 000002 ADD #2,R2 ADVANCE TO NEXT REGISTER 
004724 000062 #RAWC RZ 31S THIS RMWC?? 
40% sVES = TRY — REGISTER 
000004 #RMBA,R2 31S THIS RMBA?? 
40$ ; - TRY NEXT REGISTER 
000010 #RACS2,R2 31S THIS RMCS5?? 
40$ ; - TRY ANOTHER REGISTER 
000016 #RMAS ,R2 :1S THIS RMAS ?? 
40$ ; - TRY ANOTHER REGISTER 
000022 #RMDB,R2 :1S THIS RMDB?? 
408 ; - TRY ANOTHER REGISTER 
000046 #RMEC2,R2 31S THIS A LEGAL REGISTER 
004766 103251 10$ ; - TRY THIS REGISTER 


004770 50$: 
;GOT "NONEXISTENT DEVICE’ ERROR FOR EVERY REMOTE REGISTER ADDRESS 


004770 013737 001276 001136 MOV SBASE, SBDADR ;STORE BASE ADDRESS 
004776 104002 ERROR 2 ;DEMAND OR TRANSFER FAILED 


005000 000137 021416 60$: JMP SEOSP :GO SELECT NEXT DEVICE 
005004 70$: 


FFARR AREA ARERR AAA ARATE RARE AAA ARERR REREEAERERAEE 


s*TEST 2 CTOD TEST 


PES eS STII i iii iti ii titi iiiiiiiiitiiiititiiiit iit. 
005004 000004 TST2: 
000002 001226 #2,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 

000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 

005046 001122 #T2,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 005046 001124 #T2,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
001276 SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 7R1 = POINTER TO DEVICE 
00004C 000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
005070 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;WRITE ONES IN REMOTE REGISTERS 


005074 012760 000076 000000 MOV #ILF76,RMCS1(RO) ;LOAD RMCS1 
005102 012760 177777 600006 MOV #-1,RMDA(RO) ;LOAD RMDA 
005110 012760 001777 000034 MOV #CYLMSK ,RMDC (RO) ;LOAD RMDC 
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CZRMKA.P11 
005116 


005124 
005130 


005130 
005136 
005144 
005152 
005160 
005162 


005164 


005220 


005222 
005224 


005224 
005226 


005234 


005310 


005314 
005322 
005330 


005336 
005344 


012760 
012702 


016037 
016037 
016037 
016037 
005302 
100362 


042737 


001001 
104003 


000004 
012737 


000240 


012737 
012706 


111160 


012760 
012760 
012760 


012760 
111160 


016200 
000001 


000000 
000006 
000034 
000032 


177701 
001334 
176000 
161577 


000003 


000024 


005266 
001100 


000010 


000076 
177777 
177777 


000040 
000010 


MACY11 30A(1052) 
T2 


000032 


001326 
001334 
001362 
001360 


001326 


001362 
001360 


001226 


001120 


001124 


000010 


000000 
000014 
000042 
000010 


H 5 
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CTOD TEST 


MOV WFATIOLECI!HCI!OFD,RMOF (RO) 
7 READ xy we ty TWICE 
MOV 


10$: : 


;LOAD RMOF 


MOV RACS1(RO) ,RACSII 
RMDA(RO),RMDAI 
RMDC(RO),RMOCI 
RMOF (RO) ,RMOF I 
R2 
10$ 
BITS CAME BACK 
# CILF76,RMCS11 
208 


RMDAI 
208 


;STORE RMDA IN INPUT BUFFER 
;STORE RMDC IN INPUT BUFFER 
;STORE RMOF IN INPUT BUFFER 


71S RACS1 0?? 

:NO! 

ih, RDA 0?? 

— 24 RMDC 07? 
iN 

#XNUOF ,RMOF I :1S RMOF 0 ?? 

208 NO! 


BNE 
CANNOT READ ANY ONE BITS FROM REMOTE REGISTERS 
208 ERROR 3 :CTOD MUST BE STUCK 


SRR EEE EERE EERE AAR EAA AEREEAARAERAAREEEEARERE EERE 


TeTEST 3 MASSBUS INITIALIZE TEST 


PRR R eRe eA ATTRA EAA A AAA E ATER EEE AERA AAR E ee eee eee 
TST3: 
#3,STESTN 7;SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 
#1, SERMAX 
#13, SLPADR 
#T3,SLPERR 


320 ITERATIONS 

;ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
OvB (R1),RMCS2(RO) ;SELECT UNIT 
s WRITE ONE'S IN SELECTED REGISTERS 


MOV #1LF76,RMCS1(RO) 
MOV #-1,RMER1(RO) 


MOV #-1,RMER2(RO) 
;USING CONTROLLER CLEAR, IE., 
a #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
OvB (R1),RMCS2(RO) ;SELECT UNIT 
;READ THE REGISTERS THAT WERE WRITTEN 


;LOAD RMCS1 
;LOAD RMER1 


;LOAD RMER2 
IT 5 OF RMCS2, 





STORE RMCS1 IN INPUT BUFFER 


INITIALIZE THE MASSBUS 





o 
~ 
2 


SEQ 0059 


o 
~N 
z 


WWWW WWW AWWW WA NWA WW AW 


> Sa 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5=-APR-78 14:49 PAGE 60 SEQ 0060 


CZRMKA.P11 05-APR-78 14:38 13 MASSBUS INITIALIZE TEST 
2690 
+44 005350 016037 000000 001326 MOV RMCS1(RO),RMCS1I STORE RMCS1 IN INPUT BUFFER 
693 005356 016037 000014 001342 MOV RMER1(RO),RMERII ;STORE RMER1 IN INPUT BUFFER 
2695 005364 016037 000042 001370 MOV RMER2(RO),RMERZI zSTORE RMER2 IN INPUT BUFFER 
2696 :SEE IF ANY REGISTER BITS WERE CLEARED 
2697 005372 052737 177701 001326 BIS # CILF76,RMCS11 :SET ANY BIT NOT WRITTEN 
2698 005400 052737 001567 001370 BIS #XNUER2 ,RMER2ZI1 
2699 005406 022737 177777 001326 CMP #-1,RMCS1I zANY ZEROS IN RMCS1?? 
2700 005414 001011 BNE 10$ sYES!! 
2701 005416 022737 177777 001342 CMP #-1,RMERTI zANY ZEROS IN RMERI?? 
2702 005424 001005 BNE 108 rYES!! 
2703 005426 022737 177777 001370 CMP #-1,RMER2I zANY ZEROS IN RMER2?? 
2704 005434 001001 BNE 10$ 
2705 :NONE OF THE BITS WERE CLEARED 
2706 005436 104004 ERROR 4 -MASSBUS INIT FAILED 
ere 005440 10$: 
2709 FERRER ERA EAE REAR A EAR E RAAT ERE REA RERREEAREKEEEEREREE EEE 
rio SSTEST 4 CLEAR STUCK ACTIVE TEST 
2712 M : 'MABBABAAAAAAALASLAARASBAALALASLALALAALAAALASZASLAESASEAESAAALEAAALASSS OY 
2713 005440 000004 TST4: SCOPE 
erie 005442 012737 000004 001226 MOV #4, $TESIN SET TEST NUMBER IN APT MAIL BOX ; 
2716 005450 000240 NOP 3 
2717 005452 012737 000024 001120 MOV #20. ,SICNT 320 ITERATIONS 3 
2718 005460 112737 000001 001131 MOVB #1, SERMAX sONE ERROR ALLOWED 3 
2719 005466 012737 005502 001122 MOV #T4,$LPADR ;LOAD LOOP ON TEST ADDRESS 3: 
eve sonar 012737 005502 001124 ie MOV #T4,$LPERR ;LOAD LOOP ON ERROR ADDRESS ; 
2722 005502 012706 001100 . MOV #STACK,SP LOAD THE STACK POINTER 3 
2723 005506 013700 001276 MOV SBASE,RO RO = UNIBUS ADDRESS OF UUT 3: 
2724 005512 013701 001456 MOV TSTQUE,R1 7R1 = POINTER TO DEVICE 3: 
2725 005516 012760 000040 000010 mov #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 3 
2726 005524 111160 000010 OvB (R1),RMCS2(RO) ;SELECT UNIT 3 
2727 ZWRITE One's IN TEST REGISTERS ; 
Te 005530 012760 177777 000014 MOV #-1,RMER1(RO)  ;LOAD RMER1 ; 
tei 005536 012760 177777 000042 MOV #-1,RMER2(RO)  ;LOAD RMER2 : 
2733 005544 012760 000001 200024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 3 
te 2 READ TEST REGISTERS AND SEE IF ANY BITS ARE ON : 
e736 005552 016037 000014 001342 MOV RMER1(RO),RMER1I ;STORE RMER1 IN INPUT BUFFER ; 
14] 005560 016037 000042 001370 MOV RMER2(RO),RMERZI :STORE RMER2 IN INPUT BUFFER : 
2740 005566 016037 000024 001352 MOV RMMR1(RO),RMMRII STORE RMMR1 IN INPUT BUFFER 3 
2741 005574 042737 040000 001342 BIC #UNS ,RMERII DONT ACCEPT UNSAFE 3 
2742 005602 001011 BNE 10$ BRANCH IF ANY OTHER BITS ON 3 
2743 005604 042737 040200 001370 BIC #SKI'DVC,RMERZI ;DONT ACCEPT SKI OR DVC 3 
2744 005612 001005 BNE 10$ ;BRANCH IF ANY OTHER BITS ON 3 
2745 005614 032737 000001 001352 BIT #DMD,RMMR1I :BRANCH IF DMD IS ON 3 
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005622 001001 BNE 10$ 
005624 104026 ERROR 26 :MBA CLR IS STUCK ACTIVE 
005626 10$: 


SURAT A EEE T ERE ERA ARERR AAEAR AREER EERE EEE 


TATEST 5 TRISTATE TRANSFER TEST 


PETTITT ITI t iii t it ii iii titi tiiitititititiiitiititi titi titi itis) 
005626 000004 TSTS: 
000005 001226 #5, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20.,SI1CNT 320 ITERATIONS 

000001 #1, SERMAX ;ONE ERROR ALLOWED 

005670 #T5,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 005670 001124 #TS,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
013700 001276 SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
013701 001456 TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
005002 R2 CLEAR ERROR FLAGS 
012760 000040 000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
005714 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;WRITE ONES IN SELECTED REGISTERS 


005720 012760 000076 000000 MOV #ILF76,RMCS1(RO) ;LOAD RMCS1 


005726 012760 177777 000006 MOV #-1,RMDACRO) ;LOAD RMDA 


005734 012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD RMER1 
005742 012760 177777 000032 MOV #-1,RMOF (RO) ;LOAD RMOF 


005750 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 
WRITE ZEROS IN SELECTED REGISTERS 


005756 012760 000000 000000 MOV #0,RMCS1(RO) ;LOAD RMCS1 
005764 012760 000000 000006 MOV #0,RMDA‘RO) LOAD RMDA 
005772 012760 .90000 000014 MOV #0, RMER1(RO) ;LOAD RMER1 
006000 012760 000000 000032 MOV #0, RMOF (RO) ;LOAD RMOF 
006006 012760 000000 000034 MOV #0, RMDC(RO) ;LOAD RMDC 


006014 012760 00000€ 000042 MOV #0,RMER2(RO) ;LOAD RMER2 
;READ BACK ALL REGISTERS 


006022 016037 000000 001326 MOV RMCS1(RO) ,RMCS11 STORE RMCS1 IN INPUT BUFFER 
006030 016937 000006 001334 MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
006036 016037 000014 001342 MOV RMER1(RO) ,RMERII STORE RMER1 IN INPUT BUFFER 
006044 016037 000032 001360 MOV RMOF (RO), RMOFI ;STORE RMOF IN INPUT BUFFER 
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006052 016037 000034 
006060 016037 000042 
012702 177777 


001370 
001407 


010237 001142 
001140 


000001 


000040 
006230 000010 


006234 012760 000000 
006242 012760 000000 
006250 012760 000000 


006256 012760 000076 
006264 012760 177777 
006272 012760 016200 
006300 012760 001777 
006306 012760 177777 
006314 012760 176210 


006322 016037 000000 


001326 MOV 


kK 5 
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TRISTATE TRANSFER TEST 


001362 MOV 
001370 MOV 


RMDC(RO),RMDCI 
RMER2(RO) ,RMERZI 


STORE RMDC IN INPUT BUFFER 
;STORE RMER2 fl _— BUFFER 


;CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & REA 
MOV #-1,R2 


001326 # CILF76,RMCS11 
001360 #XNUOF ,RMOF I 
001362 #XNUDC ,RMDCI 
001370 +2 | eames 


RMCS1I,R2 
RMDAI,R2 
RMER11,R2 
RMOFI,R2 
RMDCI,R2 
RMER2I1,R2 
10$ 


BEQ 
;ONE OR aay BIT POSITIONS ARE NOT ZER 


R2,$BDDAT 
SGDDAT 


5 
#B1TO,R2 


10$: 


000010 #CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 


MOVB 
;PRESET SELECTED REGISTERS TO ZEROS 


sACCUMULATE ZEROS IN Ro 
SET ALL BITS NOT WRITTEN 


> COMPLEMENT REGISTER CONTENTS 


sACCUMULATE ALL ZERO BITS 


Ae IF EACH BIT IS ZERO 


;SAVE RESULT FOR TYPE 
;LOAD EXPECTED RESULT 


; TRISTATE BUS IS STUCK AT ONE 
SET ERROR FLAG 


;CLEAR THE MASSBUS 
;SELECT UNIT 


7 (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 


000006 MOV #0, RMDA(RO) 
000032 MOV #0, RMOF (RO) 
000034 MOV #0, RMDC(RO) 


000000 MOV 
006006 MOV 
000032 MOV 
000034 MOV 
000014 MOV 


#ILF76,RMCS1(RO) 
#-1,RMDACRO) 


#-1,RMER1(RO) 


sREAD ALL REGISTERS 
RMCS1(RO),RMCS11 


;LOAD RMDA 
;LOAD RMOF 


;LOAD RMDC 
sWRITE ONES IN SELECTED REGISTERS 


;LOAD RMCS1 


LOAD RMDA 
# CXNUOF ,RMOF (RO) 
# CXNUDC,RMDC (RO) 


;LOAD RMOF 
;LOAD RMDC 


LOAD RMER1 
000042 MOV # CXNUER2,RMER2 (RO) 


LOAD RMER2 


STORE RMCS1 IN INPUT BUFFER 


SEQ 0062 
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006330 016037 000006 001334 MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
006336 016037 000032 001360 MOV RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
006344 016037 000034 001362 MOV RMDC(RO),RMOCI ;STORE RMDC IN INPUT BUFFER 
016037 000014 001342 MOV RMER1(RO) ,RMERII STORE RMER1 IN INPUT BUFFER 


016037 000042 001370 MOV RMER2(RO) ,RMERZ1 ;STORE RMER2 IN INPUT BUFFER 
CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
042737 177701 Ic # CILF76,RMCS11 ;CLEAR ALL BITS NOT WRITTEN 
161577 #XNUOF ,RMOF I 
176000 #XNUDC,RMOCI 
001567 001370 #XNUER2 ,RMER21 
2 ACCUMULATE ONES IN R2 


R 
001326 RMCS11,R2 ACCUMULATE ALL ONE BITS 
RMDAI ,R2 
RMOFI,R2 
RMOCI,R2 
RMER1I1,R2 
RMER21,R2 
177777 #-1,R2 ;SEE IF EACH BIT POSITION WAS ONE 
001410 BEQ 208 ;BRANCH IF NONE STUCK 
MORE BIT yt ery ARE NOT ONE 
010237 001142 MOV R2,$BDDAT SAVE RESULT FOR TYPE 
177777 +=001140 #-1,SGDDAT EXPECTED RESULT 


6 
052702 000002 #BIT1,R2 SET ERROR FLAG 


005702 R2 sANY ERRORS DETECTED ?? 
001131 30$ :YES - DONT DO BIT TEST 
012702 000001 Ng #1,R2 :R2=BIT POSITION 
012760 000040 000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB  (R1).RMCS2(RO) :SELECT UNIT 
;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 

006520 010260 000006 MOV R2,RMDA(RO) ;LOAD RMDA 

006524 010260 000032 MOV R2,RMOF (RO) ;LOAD RMOF 

006530 010260 000034 MOV R2,RMDC (RO) :LOAD RMDC 

006534 010260 000014 MOV R2,RMER1(RO) ; LOAD RMER1 


006540 010260 000042 MOV R2,RMER2(RO) ;LOAD RMER2 
READ BACK ThE REGISTERS 


006544 016037 000006 001334 MOV RMDA(RO),RMDAL ;STORE RMDA IN INPUT BUFFER 
006552 016037 000032 001360 MOV RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
006560 016037 000034 001362 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
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006566 016037 000014 001342 MOV RMER1(RO) ,RMERTI STORE RMER1 IN INPUT BUFFER 


006574 016037 000042 001370 MOV RMER2(RO) ,RMERZI ;STORE RMER2 IN INPUT BUFFER 
;CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
005003 CLR R3 sR3=ACCUMULATED ONE BIT 
177777 R4=ACCUMULATED ZERO BITS 
001334 RS ORS GET ANY GOOD BITS FROM RMDA 


001360 :GET GOOD BITS FROM RMOF 
161577 itt RS 


R5 
161577 + yr + ae 


R5,R4 
001362 RMOCI,RS :GET GOOD BITS FROM RMDC 
176000 #XNUDC,R5S 
R5.R3 
R5 
176000 #XNUDC,R5S 
R5,R4 
001342 RMER1II,RS :GET GOOD BITS FROM RMER1 
+ Saas 


R5,R4 
001370 RMER21,R5 GET GOOD BITS FROM RMER2 
001567 eeess Ae 


R5 
001567 #XNUER2,R5 
R5,R4 


RESET ALL ONES IN R3 EXCEPT 
FOR THE TEST BIT 


RESET TEST BIT IN R4 

:COMBINE ACCUMULATED 1°S + 0'S 
1 hy OK?? 

sYES!! 


26 
001140 P SAVE TEST PATTERN 
001142 R3,$BDDAT SAVE RESULT 
7 BIT INTERFERENCE IN TRISTATE BUS 
000404 B 30$ SKIP TO NEXT 


006754 268: 
zADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
006754 006302 ASL R2 SHIFT THE BIT 
001402 BEQ 30$ sEXIT IF DONE 
000137 006506 JMP 25$ 
006764 30$: 


=WRARRBASALALASESALEALELASESASAS EASELS ESE S EASES ARES ER ERE EERE REESE SS 


s*TEST 6 REGISTER SELECT TEST 


PETTITT titi iiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy 
006764 000004 TST6: SCOPE 
006766 012737 000006 001226 MOV #6,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 





CZRMKAO RMO3/2 DSKLS PRT 2 
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CZRMKA.P11 


007036 


007042 
007044 


007050 
007056 


007062 
007066 
007072 
007076 


000240 


012737 
012706 


013700 
013701 


005002 
012703 


012760 
111160 


010260 
010260 
010360 
010360 


000024 
000001 
007026 
007026 
001100 
001276 
001456 


177777 


000040 
00001¢ 


000014 
000034 
000024 
000036 
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001120 
001131 
001122 
001124 


000010 


REGISTER SELECT TEST 


#20. ,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#16,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T6,SLPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 ;R1_ = POINTER TO DEVICE 
THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
EACH DEVICE REGISTER 


REGISTER 
ME 


T6: 


REG SEL 
(16,8,4,2,1) 


. 
° 
. 
’ 
. 
° 
© 
° 
. 
° 
+ 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
e 
> 
eo 
. 
° 
. 
e 
. 
° 
. 
° 


EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 
STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1. 
zFOR S-A-O, RMER1 IS WRITTEN WITH ZLROS. THEN THE REGISTER 
: THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
:BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE, 
:RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0, 
THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1 
sWILL NOT BE O WHEN READ BACK. 


CLR R2 sa2™ ZEROS SOURCE 

MOV #-1,R3 sRl= ONES SOURCE 
;TEST REG SEL 1 FOR S-A-0 

MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 

MOVB (R1),RMCS2(RO) ;SELECT UNIT 

MOV R2,RMER1(RO) ;LOAD RMER1 

MOV R2,RMDC (RO) LOAD RMDC 

MOV R3,RMMR1(RO) ;LOAD RMAR1 


MOV R3,RMHR(RO) ;LOAD RMHR 


SEQ 0065 
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007102 016037 000014 001342 RMER1(RO) ,RMERII STORE RMER1 IN INPUT BUFFER 


016037 000034 001362 RMDC(RO),RMOCI ;STORE RMDC IN INPUT BUFFER 
001342 oT ami 3 


176000 001362 #XNUDC ,RADCI 
001362 eacrene 


104010 10 REG SEL 1 IS S-A-0 
007142 108: 


007142 012760 000040 000010 * > “mov” | #cLRRRCS2(RO) :CLEAR THE MASSBUS 

007150 111160 000010 MOVE (RI) :RMCS2(RO) SELECT UNIT 

007154 010260 000006 MOV —s-R2,RMDACRO) ~—s; LOAD_RMDA 

007160 010260 000032 MOV R2,RMOF (RO) ;LOAD RMOF 

007164 010260 000042 MOV —«RZ,RMER2(RO) | LOAD RMER2 

007170 010360 000016 MOV R3,RMAS(RO) ;LOAD RMAS 

007174 010360 000030 MOV —s>R3,RMSN(RO) —«; LOAD RMSN 

007200 010360 000040 R3,RMMR2(RO) LOAD RMMR2 

997204 016037 000006 001334 RMDACRO) RMDAI ;STORE RMDA IN INPUT BUFFER 
007212 016037 000032 001360 RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 


007220 016037 000042 001370 RMER2 (RO) ,RMERZI STORE RMER2 IN INPUT BUFFER 
001334 R3,RMDAI 


208 
161577 001360 #XNUOF , RAOF I 
001360 1 etl 


0s 
001567 001370 #XNUER2 ,RMER21 
001370 oenes 


E 2 
104011 11 REG SEL 1 IS S-A-1 
007266 20$: 


zTEST REG SEL 2 FOR S-A-0 
007266 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
007274 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
007300 010260 000006 MOV R2,RMDA(RO) LOAD RMDA 

007304 010260 000032 MOV R2,RMOF (RO) LOAD RMOF 

007310 010260 000042 MOV R2,RMER2(RO) ;LOAD RMER2 

007314 010360 000020 MOV R3,RMLA(RO) LOAD RMLA 


007320 010360 000036 MOV R3,RMHR(RO) ;LOAD RMHR 
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007324 010360 000046 R3,RMEC2(RO) ;LOAD RMEC2 

007330 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 

007336 016037 000032 001360 RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 


007344 016037 000042 001370 RMER2 (RO) ,RMERZI ;STORE RMER2 IN INPUT BUFFER 
001334 R3,RMDAI 


308 
161577 001360 #XNUOF , RAOF I 
001360 tee 


$ 
001567 001370 #XNUER2 ,RMERZI 
001370 — 


104012 12 sREG SEL 2 IS S-A-0 
007412 308: 


sTEST REG SEL 2 FOR S-A-1 ‘ 
007412 012760 000040 000010 MOV #CLR,RMACS2(RO) [CLEAR THE MASSBUS 
007420 111160 000010 MOVB (R1),RMCS2(RO) [SELECT UNIT 
007424 010260 000014 MOV R2,RMER1(RO) LOAD RMER1 


007430 010260 000034 MOV R2,RMDC (RO) sLOAD RMDC 


007434 012760 000076 000000 #1LF76,RMCS1(RO) ;LOAD RMCS1 
007442 010360 000030 R3,RMSN(RO) ;LOAD RMSN 


007446 016037 000014 001342 RMER1(RO) ,RMERII STORE RMER1 IN INPUT BUFFER 
007454 016037 000034 001362 RMOC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 

007462 177701 001342 # CILF76,RMER11 

007470 001342 R3,RMERII 

007474 408 

007476 176000 001362 #XNUDC ,RMDCI 

007504 001362 R3,RMOCI 

007510 40$ 


007512 104013 13 sREG SEL 2 IS S-A-1 
007514 408: 


:TEST REG SEL 4 FOR S-A-0 
007514 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
007522 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
007526 010260 000014 MOV R2,RMER1(RO) ;LOAD RMER1 

007532 010260 000032 MOV R2,RMOF (RO) LOAD RMOF 

007536 010260 000034 MOV R2,RMDC (RO) LOAD RMDC 

007542 010360 000026 MOV R3,RMDTC(RO) ;LOAD RMDT 


007546 010360 000042 MOV R3,RMER2(RO) ;LOAD RMER2 
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007552 010360 000044 MOV R3,RMECT(RO) LOAD RMEC1 
007556 016037 000014 001342 RMER1(RO),RMERTI STORE RMER1 IN INPUT BUFFER 
007564 016037 000032 001360 RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 


007572 016037 000034 001362 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
001342 aac 


161577 001360 #XNUOF ,RMOF I 
001360 R3,RMOF I 


50$ 
176000 001362 #XNUDC ,RADCI 
001362 aad 
104014 14 sREG SEL 4 IS S-A-0 
007640 508: 
TEST REG SEL 4 FOR S-A~-1 

007640 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
007646 111160 000010 MOVB (R1),RMACS2(RO) ;SELECT UNIT 
007652 010260 000006 MOV R2,RMDAC(RO) ;LOAD RMDA 
007656 010260 000042 MOV R2,RMER2(RO) ;LOAD RMER2 
007662 010360 000012 R3,RMDS(RO) ;LOAD RMDS 
007666 010360 000032 R3,RMOF (RO) LOAD RMOF 
007672 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 


007700 016037 000042 001370 RMER2(RO) ,RMERZI STORE RMER2 IN INPUT BUFFER 
001334 R3,RADAI . 


608 
001567 001370 #XNUER2 ,RMER2I 
001370 + mma 


6 
104015 15 sREG SEL 4 IS S-A-1 
007732 608: 


:TEST REG SEL 8 FOR S-A-0 
007732 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
007740 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
007744 010260 000014 MOV h2,RMER1(RO) ;LOAD RMER1 
007750 010260 000006 MOV R2,RMDA(RO) ;LOAD RMDA 
007754 010360 000034 MOV R3,RMDC (RO) LOAD RMDC 
007760 010360 000042 MOV R3,RMER2(RO) ;LOAD RMER2 


007764 016037 000014 001342 MOV RMER1(RO) ,RMERI1 STORE RMER1 IN INPUT BUFFER 
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007772 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
001342 R3,RMERII 


70$ 
001334 R3,RMDAI 
70$ 


104016 16 sREG SEL 8 IS S-A-0 
010016 70$: 


:TEST REG SEL 8 FOR S-A-1 
010024 111160 900010 nove (RI) -AMCSI(RO) SELECT UNIT 

010030 010260 000032 MOV R2,RMOF (RO) ;LOAD RMOF 

010034 010260 000034 MOV R2,RMDC (RO) ;LOAD RMOC 

010040 010260 000042 MOV R2,RMER2(RO) ;LOAD RMER2 

010044 010360 000012 MOV R3,RMDS(RO) ;LOAD RMDS 

010050 010360 000014 MOV R3,RMER1(RO) ;LOAD RMER1 

010054 010360 000006 R3,RMDA(RO) LOAD RMDA 

010060 016037 000032 001360 RMOF(RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
010066 016037 000034 001362 RMDC(RO),RMOCE ;STORE RMDC IN INPUT BUFFER 


010074 016037 000042 001370 RMER2(RO) ,RMER2ZI STORE RMER2 IN INPUT BUFFER 
161577 001360 ne 


80 
176000 001362 #XNUDC ,RMDCI 
001362 R3,RMDCI 


80$ 
001567 001370 #XNUER2 ,RMER21 
001370 Et 


104017 17 :REG SEL 8 IS S-A-1 
010144 80S: 


sREGISTER SELECT 16 IS TESTED BY THE ILR TEST 


SPUR ARE AEA A ATER ERE EEA AERA ARERR 


TeTEST 7 DRIVE TYPE TEST 


PETTITT IL ITIL IT IIIT iti tii titi titi tii iit iii ii titi titi titi titi itty: 
010144 000004 TST?7: 
010146 012737 000007 001226 #7,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


010154 000240 
012737 000024 001120 #20. ,SICNT :20 ITERATIONS 
112737 #1, SERMAX ;ONE ERROR ALLOWED 
012737 #T7,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 010206 001124 #17,SLPERR ;LOAD LOOP ON ERROR ADDRESS 


010206 012706 001100 #STACK,SP :LOAD THE STACK POINTER 





fd nd ad ad ad nd Cad Cad Cad ad Cl Cd Gd Cad at Cad Cal at Ud Od Cd Gat Cad Cd Cd Cd Cd ad Cad Gat Cd Gad Cd Gad Gd Od ad Gd rd A Od Cd Cd dd Ct ON Cd Cd Gd Cd Cd Cd Cd Cd Ct 
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010212 013700 001276 
010216 013701 001456 


010222 016037 000026 
020024 


024024 
020025 
024025 


020024 
024024 
001136 
000026 


000137 021416 
010324 


010324 000004 
010326 012737 000010 


010334 000240 
000024 
000001 
010366 
012737 010366 


012706 001100 

001276 

001456 

000040 

010410 111160 000010 


010414 016037 000000 
042737 173777 
001006 
012737 004000 
010037 001136 
104060 

010446 


010446 000004 
000011 


000024 
010466 112737 000001 
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SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 3R1 = POINTER TO DEVICE 


001142 RMDT(RO),SBDDAT ;STORE RMDT AT SBDDAT 
001142 #SNGPRT,SBDDAT vestt. PORT RM03?? 
Y 


10$ 
001142 ala »SBDDAT resi! PORT RMO3?? 
001142 #SNGPRT'BITO,SBDDAT | ;SINGLE PROT RMO2 ? 
10$ ANCH IF SO 
001142 + ale a tae 


:BR 
Se PORT RMO2 ? 
ANCH IF SO 
001174 #SNGPRT,STMPO ;LOAD ActEPTABLE VALUES 
001176 #DULPRT ,STMP1 
RO, $BDADR ;LOAD BAD ADDRESS 
001136 #RADT,SBDADR 
7 DEVICE NOT AN RMO3 


SEOSP 3GO TO NEXT DEVICE 
10$: 


SERRA RAE REAAEER ERE A EAE A AAA AARA TERA AERA RARER RERREEE 


s*TEST 10 DEVICE AVAILABLE TEST 


SFR AAA EAE AAA AE ERE RAE AEA AERA AAA AAEAREREERERRE RE 
TST10: 


001226 #10, STESTN :;SET TEST NUMBER IN APT MAIL BOX 


001120 #20. ,SICNT 
001131 #1, SERMAX 
001122 #T10,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T10,S$LPERR ;LOAD LOOP ON ERROR ADDRESS 


320 ITERATIONS 
;ONE ERROR ALLOWED 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ;R1 = POINTER TO DEVICE 

000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 


001142 RMCS1(RO) ,SBDDAT STORE RMCS1 AT SBDDAT 
001142 # CDVA,SBDDAT ;CLEAR ALL BUT DVA 
10$ BRANCH IF DVA SET 
001140 #DVA,SGDDAT SETUP EXPECTED 
RO, $BDADR :SETUP REG ADDRESS 
108 60 :DEVICE NOT AVAILABLE 


FRAT AAA A ETAT AAAAA AE HERA ARERR RAE 


SaTEST 11 SEARCH TIMEOUT TEST 


PEST IT IIIT ITI Iii iii i tii tititititiiiiiiiiitititiiiitiiiiiti tity) 
TST11: SCOPE 
001226 a #11,STESIN 
N 


001120 MOV #20. ,SICNT 
001131 MOVB #1, SERMAX 


::SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


SEQ 0070 





PLL LLL HLL LLL HLL LLL LLL LPL LP LLLP LLL PWWAAAA WWW AAW WWW WNWWwWw 
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010474 012737 010510 001122 #T11,$LPADR ;LOAD LOOP ON TEST ADDRESS 
Abd a 012737 010510 001124 #T11,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
010510 012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
010514 013700 001276 SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
010520 013701 001456 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS 
010524 012737 000000 001410 MOV #0,RMDAO ; SECTOR=0=TRACK 
#0,RMDCO 7 CYLINDER=0 
#FAT16,RMOFO 316 BIT FORMAT 
#BUFFER,RABAO ;STARTING rm ADDRESS 
# C1+1,RAWCO ;WORD COUNT 
010562 012737 000061 001402 #WD'GO,RMCS1O WRITE DATA COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENAi _ED USING SUBROUTINE 
010570 004737 023326 JSR PC ,ENBSCH 

010574 000402 10$ :GO TO 10$ IF NO ERROR 

010576 104000 RETURN HERE IF ERROR 

010600 000462 :SLO REST PF TEST 


010602 10$: 
;START THE CLOCK AND WAIT FOR 100 MS 
010602 012737 000144 001524 MOV #100. ,WATCH SET WATCHDOG TIMER VALUE 
010610 004777 170712 PC ,acLOck START THE CLOCK 
010614 005737 001524 208: 
010620 001375 
010622 004777 170702 JS PC ,aSTOP STOP THE CLOCK 
;VERIFY THAT OPI IS NOT SET (SEARCH TIMEOUT IS DISABLED) 


010626 016037 000014 001142 RMER1(RO) ,SBDDAT ;STORE RMER1 AT SBDDAT 
RO,SBDADR :SET UP FOR ERROR MSG 
001136 #RMER1, SBDADR 
157777 001142 # COPI,SBDDAT 
308 BRANCH IF NO ERROR 
001140 SGDDAT 


010662 104020 20 ;OPI] SET W/SEARCH TIMEOUT 
: DISABLED 
010664 000430 50$ 7 SKIP 


010666 
SEARCH TIMEOUT, THEN WAIT 100 MS 


010666 012760 041401 000024 #OMD!MUR!DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
010674 000144 001524 #100. WATCH SET WATCHDOG TIMER VALUE 
010702 170620 PC ,acLOck START THE CLOCK 
010706 001524 40$: WATCH 
010712 40$ 
010714 004777 170610 JSR PC,aSTOP STOP THE CLOCK 

BE SET (SEARCH TIMEOUT IS ENABLED) 


010720 016037 000014 001142 RMER1(RO) ,SBDDAT STORE RMER1 AT SBDDAT 
157777 001142 # COPI,$BDDAT 


50$ 
020000 001140 #OPI,$GDDAT 
104021 21 ;OP] NOT SET BY SEARCH TIMEQUT 
010746 50$: 


PEP P PPP R RR RRR RR RARE SRSA AR ARS RS ASA REAR ESSA SEES RASS REE R ARRAS RRS ES S| 





C 


010746 


011036 


011042 
011050 


011054 
011062 
011070 
011072 
011074 
011076 


011076 


011210 


011212 
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000004 


012737 
012706 


005037 


012760 
111160 


016037 
042737 
001402 


104031 
000517 


012760 
012760 
016037 


000500 


012737 


012737 


004737 
000402 
104000 
000451 


000012 
000024 
000001 
011010 
011010 


001100 


001140 


000040 
000010 


000014 
167777 


000001 
000005 


000014 
167777 


000000 


000061 


023326 


MACY11 


001226 


001120 
001131 
001122 
001124 


001136 


000010 


001142 
001142 


000024 
000024 


001142 
001142 


001410 
001436 
001434 
001406 
001404 
001402 
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s*TEST 12 SET DTE TEST 


PURE RARE A AAA TA REA AA ATTA ATH TE TET ee Te ee T eH eee ee eee teReeeeeenede 
TST12: 
#12, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


#20.,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T12,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#712,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ;R1 = POINTER TO DEVICE 

RO, SBDADR ; SETUP ERROR MSG 

#RMER1, SBDADR 

SGDDAT 

VERIFY THAT DRIVE TIMING ERROR IS RESET 
MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 


RMER1(RO) ,SBDDAT STORE RMER1 AT SBDDAT 
# COTE, SBDDAT 
10$ ;BRANCH IF DTE=0 


3 ;CANT RESET DTE 
BR 50$ :SKIP REST OF TEST 
+4 MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET 


#0MD,RAMR1(RO) ;LOAD RMMR1 
#DMD! MI ,RMMR1(RO) ;LOAD RMMR1 


RMER1(RO) ,SBDDAT STORE RMER1 AT SBDDAT 
Fairey: 


:DTE SET WHEN SECTOR 
50$ ; COMPARE SHOULD BE RESET 


20$: 
sEXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH 
MOV #0,RMDAO 

#5,RMDCO 

#FMT16,RMOFO 

#BUFFER,RMBAO 

# C1+1,RMWCO 

#WD'GO,RMCS10 


—— = sory Ae WHERE SEARCH IS ENABLED USING SUSROUTINE 


:GO TO 30$ IF NO ERROR 
RETURN HERE IF ERROR 


BR 50$ 
WITH SEARCH ENABLED, SET AND RESET SECTOR PULSE TO SET ENABLE 
tat FLOP. 


- 


OOM PM HH. OO. DO HH OH HO. OH. OD. YH &. S. H & 
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011212 012760 051441 
011220 012760 051401 


011226 016037 000014 


167777 


001432 
011250 
011250 
011256 
011264 


012760 
012760 
012760 


051403 
051443 
051403 


011272 
011300 


011306 
011314 
011322 
011324 
011332 


011334 


012760 
012760 


016037 
042737 
001004 
012737 
104024 


051441 
051401 


000014 
167777 


010000 


011334 000004 


000013 


000024 
000001 
011376 
011576 


001100 
001276 
001456 
011752 


012737 


012706 


011416 


011416 
011424 


000040 
000010 


MACY11 30A(1052) 
T12 


000024 
000024 


001142 
001142 


000024 
000024 
000024 


000024 
000024 


001142 
001142 


001142 


001226 


001120 
001131 
001722 
061124 


000010 
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SET DTE TEST 
MOV #OMD : MUR! DBEN! MOC! DTO! MS ,RMMR1(RO) 


MOV #0MD!MUR!DBEN! MOC !DTO,RMMR1 (RO) 
:SET SECTOR PULSE AND VERIFY DTE DOES NOT SET 
; PUTMR1 #DMD!MUR!DBEN!MOC!DTO!MS 
; PUTMR1 #DMD!MUR!DBEN!MOC!DTO 


RMER1(RO) ,SBDDAT 
# COTE, SBDDAT 
40$ 


23 ;DTE SET WHEN SECTOR 
50$ ; COMPARE SHOULD BE RESET 


;LOAD RMMR1 
;LOAD RMMR1 


STORE RMER1 AT SBDDAT 


40$: 
;FORCE SECTOR COMPARE 


MOV #DMD!MUR!DBEN!MOC!DTO!MSC,RMMR1 (RO) 
MOV #DMD!MUR!DBEN!MOC!DTO!MSC!MS,RMMR1 (RO) 


MOV #DMD!MUR!DBEN!MOC!DTO!MSC,.RMMR1 (RO) 
SET SECTOR PULSE AND VERIFY DTE SETS 


#DMD!MUR!DBEN!MOC!DTO!MS,RMMR1 (RO) 
#DMD!MUR!DBEN! MOC!DTO,RMMR1(RO) 


RMER1(RO) ,SBDDAT 
# COTE, SBDDAT 
50$ 


#O0TE,SBDDAT 
24 


;LOAD RMMR1 
;LOAD RMMR1 
LOAD RMMR1 


;LOAD RMMR1 
;LOAD RMMR1 
STORE RMER1 AT SBDDAT 


;COULD NOT SET OTE WITH 
508 ;SECTOR COMPARE SET 


SPREE AEA 


s*TEST 13 FORMAT CHANGE TEST 


SPREE AEA ERE EAE AERA EEE AAEARARERREREERE ERE 


T$113: 
#13,S$TESTN 


#20. ,SICNT 
#1,SERMAX 
#1T13,$LPADR 
#713, SLPERR 


#STACK,SP 
SBASE ,RO 
TSTQUE ,R1 
#50$,R2 


7;SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 

;ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 

;RO = UNIBUS ADDRESS OF UUT 
;R1 = POINTER TO DEVICE 

108 :R2=TABLE POINTER 


PORT T ISITE r irri rit iii rir i titi iii itititititiiiiiiiiiiiiis 
INITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE 
MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 


SEQ 0073 
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CZRMKA.P11 
011430 
011434 
011442 
011450 


011506 


011514 
011520 
011522 
011524 
011526 


011526 
011534 
011542 
011550 


011556 
011564 


011630 


011630 


011636 
011644 
011652 


011660 


011260 
012760 
012760 
012737 


012737 


004737 
000402 
104000 
000515 


012760 
012760 
012760 
012760 


016037 


000454 


012760 


012760 
012760 
012760 


012760 


000032 
000001 
000005 
000000 


000061 


023326 


051403 
051443 
051403 
051401 
000014 
167777 
001136 
000014 
001140 


001174 
000002 


051405 


051403 
051443 
051403 


051441 
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000024 
000024 
001410 


001402 


000024 
000024 
000024 
000024 


001142 
001142 


001136 


001176 


000024 


000024 
000024 
000024 


000024 


FORMAT CHANGE TEST 


MOV (R2),RMOF(RO)  ;LOAD RMOF 
MOV #DMD,RMMR1(RO) ;LOAD RMMR1I 


MOV #OMD!M1,RAMR1 (RO) ;LOAD RMMR1 
; SETUP ne DURAY DATA COMMAND USING OPPOSITE FORMAT 
#5,RMDCO 
2(R2) ,RMOFO 
#BUFFER ,RMBAO 
# C1+1,RMWCO 
#WD!GO,RACS10 


a ae aeene POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
SCH 


BR 208 :GO TO 20$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 60$ 


20$: 
;FORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY TRYING TO FORCE A 
sDRIVE TIMING ERROR WHICH SHOULD NOT SET. 


MOV #DMD! MUR! DBEN! MOC !DTO!MSC,RMMR1 (RO) ;LOAD RMMR1 
MOV #DRD!MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 
MOV #OMD! MUR! DBEN! MOC !DTO!MSC,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


VERIFY THAT DRIVE TIMING ERROR DIDNT SET 


RMER1(RO) ,SBDDAT STORE RMER1 AT SBDDAT 
oo 


RO, SBDADR ;SETUP ERROR MESSAGE 
#RMER1,$BDADR 

SGDDAT 

(R2),STMPO 

2(R2),STMP1 

25 ;DTE SET WHEN THERE WAS 
60$ ;A FORMAT CHANGE 


30$: 
;CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE 


#OMD!MUR!DBEN!MOC!DTO!MI,RMMR1 (RO) ;LOAD RMMR1 
; ENABLE SEARCH AND FORCE SECTOR COMPARE 


MOV #0MD!MUR!DBEN! MOC !DTO! MSC .RMMR1 (RO) LOAD RMMR1 
MOV #OMD!MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 


MOV #DMD!MUR!DBEN!MOC!DTO!MSC ,RMMR1(RO) ;LOAD RMMR1 
;SET DTE W/ANOTHER SECTOR PULSE - VERIFY DTE IS SET 


MOV #DMD!MUR!DBEN!MOC!DTO!MS,RMMR1 (RO) ;LOAD RMMR1 
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011666 012760 051401 000024 #OMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


011674 016037 000014 001142 RMER1(RO) ,SBODAT STORE RMER1 AT SBDDAT 
167777 001142 F amagor: 


001136 RO, $BDADR ; SETUP ERROR MESSAGE 
000014 001136 #RMER1,SBDADR 
010000 001140 #0TE,SGDDAT 
27 ;COULD NOT SET DTE 
000411 60$ 
011736 40$: 
POETS ITI It titi i ili litt ii itiiiiiitititititititititititi iii iii it) 
;D0 TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION 
011736 022702 011752 CMP #50$, 
011742 60$ BRANCH IF DONE TEST 
011744 000002 #2,R2 MOVE POINTER 
011750 000622 10$ REPEAT TEST 


011752 010000 50$: . #FMT16 : 16-18 FORMAT CHANGE 
011754 000000 . 0 ; 18-16 FORMAT CHANGE 
011756 010000 . #FAT16 

011760 : ;END OF TEST 


SPREE AREER AAA TEE AAA ERE AERA AREER AREEEEKER EEE 


TEST 14 PROM STROBE TEST 


—MARRARARABAARALAARAAARAASAAAAAREASLARERASESESESSSSLASE ESSE ELSES SE SG 


011760 000004 iST14: 
000014 001226 #14,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 

000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 

012022 001122 #T14,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 012022 001124 #T14,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 7R1 = POINTER TO DEVICE 

000010 #CLR,RMCS2(RO) : CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 
RO, SBDADR ; SETUP ERROR MESSAGE 
012054 062737 000024 001136 ADD #RMMR1,SBDADR 
SET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE 


012062 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
Aa th 012702 000021 - MOV #17. ,R2 ;R2=MAXIMUM # CLOCK PULSES 


012074 012760 004001 000024 #DMD!MCLK,RMMR1(RO) :LOAD RMMR1 

012102 012760 000001 000024 #OMD,i:MMR1(RO) ;LOAD RMMR1 

012110 016037 000024 001142 RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
012116 042737 177737 001142 Uk. .SEBOAS 


012124 001406 6 
012126 005302 R2 





L 6 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 76 SEQ 0076 
CZRMKA.P11 O5-APR-78 14:38 114 PROM STROBE TEST 


012130 001361 5$ 
001140 CL SGDDAT 
CAN'T CLEAR PROM STROBE 


60$ 
012702 000021 #17.,R2 


012146 

012146 012760 004001 000024 #0MD!MCLK,RMMR1 (RO) ;LOAD RMMR1 

012154 012760 0000061 000024 #OMD,RMMRI1(RO) ;LOAD RMMR1 

012162 016037 000024 001142 RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 


177737 =001142 # CWC, SBDDAT 
ty :EXIT LOOP WHEN PROM STROBE ON 


108 
000040 001140 oo 


000453 60$ 
012216 208: 
VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS 
012216 012702 000003 MOV #3.,R2 
012222 258: 


012222 012760 004001 000024 #O0MD!MCLK,RMMR1 (RO) ;LOAD RMMR1 
012230 012760 000001 000024 #0MD,RMMR1(RO) ;LOAD RMMR1 
012236 016037 000024 001142 RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
012244 042737 177737 001142 # CWC, SBDDAT 
012252 001005 30$ BRANCH IF PROM STORBE DID NOT 
;DROP EARLY 
012254 012737 000040 001140 #WC,SGDDAT 
104032 32 
000427 B 60$ 
005302 30$: R2 
012270 001354 BNE 25$ 
VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS 
012272 012702 000010 MOV #8. ,R2 
012276 40$: 
012276 012760 004001 000024 #DMD!MCLK,RMMR1 (RO) ;LOAD RMMR1 
012304 012760 000001 000024 #OMD,RMMRI(RO) ;LOAD RMARI 


012312 016037 000024 001142 RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
177737 001142 # CWC, SBDDAT 
0$ BRANCH IF PROM STROBE 


5 
001140 CLR 4 ;DID NOT SET EARLY 


;CANT SET PROM STROBE 


50$: 
001355 
012344 60$: 


PPAR AAA AERA AAA AERA TAA ARATE AAA KARA AAAReRAAeKeKAReeAReAte 





mM 6 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 77 SEQ 0077 
CZRMKA.P11 O5-APR-78 14:38 T15 SYNC WORD COUNT INHIBIT TEST 


s*TEST 15 SYNC WORD COUNT INHIBIT TEST 


PETTITT IIIT lili titi iti li tititiritititititititiiititiiiiiiie! 
012344 000004 TST15: 
000015 001226 #15, S$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 
000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 
012406 001122 #T15,SLPADR ;LOAD LOOP ON TEST ADDRESS 
012737 0124066 001124 rs #T15,SLPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
013700 001276 SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
012416 013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
: OUTPUT BUFFER FOR SUBROUTINES 
012422 012737 000000 001410 MOV #0,RMDAO ;SECTOR=0, TRACK=0 
#5,RMDCO 3 CYLINDER=0 
#FAT16,RMOFO 316 BIT FORMAT 
#BUFFER,RMBAO ;STARTING BUFFER ADDRESS 
# C1+1,RAWCO WORD COUNT 
#WD'GO,RACS1O ;WRITE DATA COMMAND 
000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 fR1),RACS2(RO) [SELECT UNIT 


sEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
004737 023326 JSR PC,ENBSCH 
BR 10$ :GO TO 108 IF NO ERROR 


ERROR ;RETURN HERE IF ERROR 
BR 1208 sSKIP IF FAILURE 
012512 


10$: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
012512 004737 024206 JSR PC,SCTCMP 


000402 208 :GO TO 208 IF NO ERROR 
104000 RETURN HERE IF ERROR 
012522 000555 


FF RARER AAA EAA AAA AE AAA A AEA EAA HARARE ERERAEEKERAEREREEE 


CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET 


; STEP | A eae TO LOCATION 10(10) WHILE CHECKING ‘'PLFS"’ 
012524 012702 000000 208 #0,R2 sR2=SEQUENCER ADDRESS 


012530 
PULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS 
012530 012760 055401 000024 MOV #O0MD! MUR! DBEN! MOC !DTO!MCLK,RMMR1 (RO) ;LOAD RMMR1 


012536 072760 051401 000024 MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
SEE IF PROM STROBE IS SET 


012544 016003 000024 MOV RMMR1(RO) RS STORE RMMR1 AT R3 

012550 032703 BIT #WC RS 

012554 001765 BEQ 30$ ISSUE NEXT BIT CLOCK 

012556 005202 INC R2 ; INCREMENT SEQUENCER ADDRESS 
;CHECK "LOOKING FOR SYNC’ = SHOULD BE ZERO UNTIL LOCATION 11 

012560 010337 MOV R3,$BDDAT 

012564 042737 001142 BIC # CPLFS,SBDDAT 

012572 001413 BEQ 50$ BRANCH IF PLFS IS ZERO 
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012574 005037 001140 SGDDAT 
001136 RO, $BDADR 
000024 001136 #RMMR1, SBDADR 


001174 R2,$TMPO 
34 :PLFS SHOULD NOT BE SET 
000516 B 1208 ;SKIP REST OF TEST 


012622 50$: 
sEXiT LOOP IF SEQUENCER NOW AT LOCATION 10 


012622 022702 000012 A ha 
im MAINTENANCE CLOCK UNTIL PROM STROBE RESETS 


012626 001414 
012630 
012630 012760 055401 000024 MOV #DMD! MUR! DBEN! MOC !DTO!MCLK ,RMMR1 (RO) ;LOAD RMMR1 


012636 012760 051401 000024 MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
;SEE IF PROM STROBE IS RESET 


012644 016003 000024 MOV = RMMR1(RO),R3 —_; STORE _RMMR1 AT R3 

012650 032703 000040 BIT #WC,R3 

012654 001365 BNE 608 

012656 000724 BR 30$ :G0 STEP SEQUENCER TO NEXT LOC 

012660 | 708: 
RRA EAA EAE RAAT 
;THE NEXT PROM STROBE SHOULD SET "'PLFS'' AT LOCATION 11(10) OF THE 
DATA TIMING SEQUENCER 

012660 012702 000020 #16. ,R2 ;R2=NUMBER OF BIT CLOCKS 
SISSUE 16 BIT CLOCKS’ 10 GET NEXT’ PROM STROBE 

012664 80S: 


012664 012760 055401 000024 MOV #DMD! MUR! DBEN! MOC! DTO!MCLK,RMMR1 (RO) ;LOAD RMMR1 
012672 012760 051401 000024 MOV #OMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 

012700 005302 DEC R2 

012702 001370 BNE 80$ 

VERIFY THAT “'PLFS"’ IS NOW SET 


012704 016037 000024 001142 RMMR1(RO) ,SBDDAT :STORE RMMR1 AT SBDDAT 
175777 001142 # CPLFS,$BDDAT 
;BRANCH IF PLFS IS SET 


90$ 
002000 001140 #PLFS,SGDDAT SETUP ERROR MESSAGE 
001136 RO, SBDADR 
000024 001136 #RMAR1, SBDADR 
35 ;""PLFS*’ DID NOT SET 


000444 B 1208 :SKIP REST OF TEST 
012746 90$: 


ISSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE 


012746 012702 000003 MOV #3,R2 : 
012752 95$: 


012752 012760 055401 000024 MOV #OMD! MUR! DBEN! MOC !DTO!MCLK ,RMMR1 (RO) LOAD RMAR1 


012760 012760 051401 000024 MOV #OMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMAR1 
012766 005302 DEC R2 
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CZR 


MKA.P11 


012770 


012772 
012776 
012776 
013004 
013012 


013054 
013056 


013056 


013130 
013134 


013172 


013200 
013204 
013206 
013210 
013212 


013212 


001370 


012702 


012760 
012760 
016003 


001350 


000004 


012737 
012706 
013700 
013701 


012737 


012737 


004737 
000402 
104000 
000542 


004737 


000040 


055401 
051401 


000024 
177737 


001140 


000024 


000016 
000024 
013120 
001100 


001276 
001456 


000000 


000071 


023326 


024206 
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000024 
000024 


001136 


001226 
001120 
001131 


001122 
001124 


001410 


001402 


SYNC WORD COUNT INHIBIT TEST 
BNE 95$ 
pA eeaeeeeeeeeeaeeeeedeeeeeeeeedeeeereeeetereeeeereteeteneereneet 
sWITH “"LOOKING FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET 
;PROM STROBE 
1008 MOV #32. ,R2 ;R2=NUMBER OF BIT CLOCKS 
; PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET 
#0MD! MUR! DBEN! MOC! DTO!MCLK,RMMR1 (RO) ;LOAD RMMAR1 
#OMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
RMMR1(RO) ,R3 STORE RMMR1 AT R3 
# CWC,R3 


BRANCH IF PROM STROBE IS 0 
;SETUP ERROR MESSAGE 


8 PROM STRUBE WHILE LOOKING FOR SYNC 
110$: : CONTINUE FOR 32 BIT Ci OCKS 


1208: sEND OF TEST 


SPREE RARE AERA AAA AEAE AAA AAAAREAAAAAARAARARAKAARAARARAREREREE 


s*TEST 16 SYNC DETECTION TEST 


SRR AAAAAAAAAAAEEREREARAAA RARER ARE RARE AAAARARAAAERARAAAAREREREE 


TST16: 


#16,STESTN 7:SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 320 ITERATIONS 

#1,SERMAX ;ONE ERROR ALLOWED 
#T16,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#116,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
OUTPUT BUFFER FOR SUBROUTINES 

#0,RMDAO sSECTOR O,TRACK 0 

#5,RADCO sCYLINDER 5 

#FMT16,RMOFO 3:16 BIT MODE 

#BUF FER RMBAO ;BUFFER ADDRESS 

# C1+1,RAWCO CORD COUNT 

#RD'GO,RACS1O  ;READ DATA COMMAND 


sEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC,ENBSCH 
BR 10$ :GO TO 10$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 100$ 


10$: 
FORCE SECTOR COMPARE os SUBROUTINE 
JSR PC, SCTCMP 


T16: 








SEQ 0079 


at et at at et et oe ot at at et ot pt et et eh et et ee ak ee ak ek 
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CZRMKA.P11 
013216 


013224 
013224 


013236 


013236 


013254 


013260 
013266 


013266 
013274 
013302 


013336 


013342 
013342 
013350 
013356 


013414 


000402 
104000 
000535 


004737 
000402 
104000 
000530 


012702 
010037 
062737 
005037 


012760 


012760 
012760 
016037 


000472 
005302 


001354 
012702 


012760 
012760 
016037 


000445 


005302 
001355 
012702 
012703 


024314 


000020 
001136 
000024 
001140 


053401 


057401 
053401 


000024 
177737 


177777 


000020 


055401 
051401 


000024 
177737 


001174 


000040 
000031 
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001136 


000024 


000024 
000024 


001142 
001142 


001174 


000024 
000024 


001142 
001142 


SYNC DETECTION TEST 


BR 208 :G0 TO 20$ IF NO ERROR 

ERROR 

BR 100$ 

208: 

:SET "LOOKING FOR SYNC'’ USING SUBROUTINE 
JSR PC,SETLFS 


RETURN HERE IF ERROR 


MUTITITITITITIITTITITTITITITTTITT ITT LiTTi TTT iiTii iii ii tie 
CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
; (USING PROM STORBE AS INDICATION) 
#16. ,R2 ;NUMBER OF ONE BITS 
RO, SBDADR ; SETUP ERROR MESSAGE 
#RAMR1,SBDADR 
SGDDAT 


#MRIAAA!MRD,RAMR1(RO) ;LOAD RMMR1 


#MRIAAA! MRD! MCLK ,RAMR1 (RO) LOAD RMMR1 
#MRIAAA!MRD,RMARICRO) ;LOAD RMMR1 


RAMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
# CWC,$BDDAT 


50$ 
#177777, STMPO 
37 


REPEAT FOR 16 BITS 
;NUMBER OF ZERO BITS 


FERRARA REAR AA REAR A ARTETA AERA AEE AE AERAAAAATAAEAEAAERE REAR 


+ pay ALL ZERO SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 


#MRIAAA!MCLK,RAMAR1(RO) ;LOAD RMMR1 
#AR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1(RO) ,SBDDAT ;STORE RMMR1 AT SBDDAT 
A smamesat: MAKE SURE SYNC NOT DETECTED 
SYNC DETECTED W/ALL O°S PATTERN 
SKIP IF FAILURE 
sREPEAT FOR 16 BITS 


#32. ,R2 ;R2=NUMBER OF BITS 
#000031 ,R3 sR3=SYNC PATTERN FOR LEFT SHIFT 


SEQ 0080 


ESOP HOH PHO POOOD: 
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PRPS S Siti rier titi rir li iii iiiiiiiiiiiititititititiiiiiiiiy) 
bo lay BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS 
3D 

012737 055401 001426 80S: 0 #MRIAAA!MCLK ,RAMR10 GENERATE VALUE OF RMMR1 
;CLEAR THE CARR 
R3 SHIFT RIGHT 
90$ BRANCH IF C BIT CLEAR 
aySei3 052737 002000 001426 #MRD,RMMR10 SET MRD IF PATTER BIT SETS 


013442 013760 001426 000024 RMMAR10,RAMR1 CRO) LOAD RMMR1 
013450 042737 004000 001426 #MCLK,RMAR10 sRESET BIT CLOCK 


013456 013760 001426 000024 RMMAR10,RAMR1 (RO) ;LOAD RMMR1 
013464 016037 000024 001142 RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 


177737 001142 # CWC, SBDDAT 
100$ ;BRANCH IF PROM STROBE IS SET 
R2 ;CONTINME FOR 16 BIT CLOCKS 


80$ 
000040 001140 #WC ,SGDDAT 
104040 40 SYNC PATTERN NOT DETECTED 
013516 100$: END OF TEST 


SRRAREARAEKERAAA RAAT AAARAARAARA AA AAA AAA AAAAAAARAREKAAARAEAAEARAEE 


SeTEST 17 ABORT SYNC DETECTION TEST 


PRPS TST iii r iit ir rir itiiiiiiriiiiiiiiiiiiiiititititiiiiiit, 
013516 000004 TST17: 
000017 001226 #17, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 
000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 
013560 001122 #T17,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 013560 001124 _ #T17,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
013700 001276 SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
013570 013701 001456 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
: OUTPUT BUFFER FOR SUBROUTINES 
013574 012737 000000 001410 MOV #0,RMDAO ; SECTOR 
#5,RMDCO 
#FAT16,RMOFO ; RMAT 
#BUFFER,RMBAO ; STARTING owrren ADDRESS 
# C1+1,RMWCO ;WORD COUNT 
012737 000071 001402 #RD!GO,RACS10 ;READ DATA COMMAND 


sEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC,ENBSCH 


:GO TO 10$ IF NO ERROR 
RETURN HERE IF ERROR 


004737 023326 


000447 
013652 


10$: 
FORCE SECTOR COMPARE orm SUBROUTINE 
013652 004737 024206 JSR PC, SCTCMP 
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CZRMKA.P11 
013656 
013660 
013662 
013664 
013664 
013670 
013672 


013674 
013676 


013676 


013704 
013710 


013710 
013716 
013724 


013770 


013770 


014042 


014046 
014054 
014062 


000402 
104000 
000442 


004737 
000402 
104000 
000435 


012760 
012702 


012760 
012760 
016037 


104041 


000004 


012737 


012706 
013700 
013701 


012737 
012737 
012737 


024314 


051441 
000020 


055441 
051441 


000024 
177737 


000040 
001136 
000024 


000020 
000024 


014032 


001100 
001276 
001456 


000000 
000005 
010000 
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000024 


000024 
000024 


001142 
001142 


001140 
001136 


001226 


001120 
001131 
001122 
001124 


001410 
001436 
001434 


ABORT SYNC DETECTION TEST 


BR 208 :GO TO 20$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 50$ 


208: 

3SET “LOOKING FOR SYNC’’ USING SUBROUTINE 
JSR PC,SETLFS 
BR 308 

pe 


50$ 
308: 
eet T Ete iii ti rir iii re tri tii rir tii iiiitiiiiiiiiiiiiiis) 
:LOOKING FOR SYNC INHIBITS WORD CLOCK,HOWEVER, "DRIVE TIMING ERROR" 
:SHOULD RESET "LFS WORD COUNT INHIBIT” FLOP 
SFORCE DRIVE TIMING ERROR 


#MRIAAA!MS ,RMMR1 (RO) ;LOAD RMMR1 
:PULSE art “cock AND VERIFY PROM STROBE SETS 
_ #16.,R2 :R2, NUMBER OF BIT CLOCKS 


#MRIAAA!MS!MCLK,RAMR1 (RO) ;LOAD RMMR1 
#ARTAAA!MS ,RMMR1 (RO) LOAD RMMR1 


RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
gs cpeamaain, 


R2 
40$ 
#WC ,SGDDAT 
RO,SBDADR 
#RMMR1,$BDADR 
508 41 :DTE DIDNOT CLEAR WORD COUNT INH 


SRR AAA ARATE AAA AA AAA AAA RAAT RARER AEE 


:*TEST 20 SYNC GENERATION TEST 


test alma aa aces mes 
TST20: 
#20, STESTN 7;SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 320 ITERATIONS 

#1,SERMAX ;ONE ERROR ALLOWED 
#T20,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T120,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 

SBASE ,RO ;RO = UNIBUS ADDRESS GF UUT 
TSTQUE,R1 :R1 = POINTER TO DEVICE 

OUTPUT BUFFER FOR SUBROUTINES 

#0,RMDAO My 0, TRACK 0 


#5,RMDCO C¥L 
#FMT16,RMOFO 3:16 BIT MODE 


T20: 


SEQ 0082 
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CZRMKA.P11 05-APR-78 14:38 T20 SYNC GENERATION TEST 
3978 014070 012737 054062 001406 MOV #BUF FER, RMBAO ;BUFFER ADDRESS 
3979 014076 012737 177776 001404 MOV # C2+1,RMWCO :WORD COUNT 
3980 014104 012737 000063 001402 MOV #WH'GO,RMCS10 [WHITE HEAD AND DATA COM 
3982 ;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
3983 014112 004737 023326 JSR PC, ENBSCH 
3984 014116 000403 BR 10$ :GO TO 10$ IF NO ERROR 
3985 014120 104000 ERROR [RETURN HERE IF ERROR 
3986 : BR 1608 ; 
3987 014122 000137 014512 JMP 1608 : 
3988 014126 108: 
3989 :FORCE SECTOR COMPARE USING SUBROUTINE 
3990 014126 004737 024206 JSR PC, SCTCMP 
3991 014132 000402 BR 20$ :GO TO 208 IF NO ERROR 
3992 014134 104000 ERROR [RETURN HERE IF ERROR 
3993 014136 000565 BR 1608 : 
399% 014140 208: 
3996 Fy FREER AAR EAE A AAA EATER AAAAARAAREAKEREREKERE 
3997 :WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED 
3998 SFIRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT 
3999 :SECTOR COMPARE SET 
2001 
4002 014140 016037 000040 001142 MOV RMMR2(RO) ,SBDDAT :STORE RMMR2 AT SBDDAT 
4003 014146 042737 177776 001142 BIC # CBBOO,$BDDAT :BUS BIT 0 IS WRITE GATE 
4004 014154 001011 BNE 30$ ; 
4005 014156 005037 001140 CLR SGDDAT 
4006 014162 010037 001136 MOV RO, SBDADR 
4007 014166 062737 000040 001136 ADD #RMMR2, SBDADR 
4008 014174 104042 ERROR 42 ;WRITE GATE NOT ON DURING 
4009 014176 000545 BR 1608 ;FORMAT-CS FAILURE 
4010 014200 30S: 
4011 7STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE 
4012 :GATE STAYS ON 
4013 014200 012702 000016 MOV #14. ,R2 ;MAXMUM NUMBER OF CLOCK 
4014 014204 408: 
4016 014204 016037 000040 001142 MOV RMMR2(RO) ,SBDDAT :STORE RMMR2 AT SBDDAT 
4017 014212 032737 000001 001142 BIT #8800, $BDDAT ; 
4018 014220 001014 BNE 50$ [BRANCH IF WRITE GATE ON 
4019 014222 005302 DEC R2 
4020 014224 001367 BNE 408 
4021 014226 010037 001136 MOV RO, SBDADR 
4022 014232 062737 000040 001136 ADD #RMMR2, SBDADR 
4023 014240 012737 000001 001140 MOV #8800, $GDDAT 
4024 014246 104042 ERROR 42 ;WRITE GATE DROP DURING 
4025 014250 000520 BR 1608 ;FORMAT = CS FAILURE 
4026 014252 508: 
4027 014252 608: 
4029 014252 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) LOAD RMMR1 
4031 014260 012760 051401 000024 MOV #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 


4033 014266 016003 000024 MOV PMMR1(RO),R3 STORE RMMR1 AT R3 
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014272 032703 000040 Be + + Saag 
;PROM ty gt pete serctnsi PROM STROBE COUNT 


014276 001765 


014300 005302 
014302 001414 


014304 
014304 012760 055401 000024 #MRIAAA!MCLK,RMMRI(RO) ;LOAD RMMR1 
014312 012760 051401 000024 #MR1AAA,RAMR1 (RO) ;LOAD RMMR1 


014320 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
014324 032703 000040 #uC,R3 

014330 001725 40$ 

014332 000764 70$ 

014334 80$: 


PLRAAAAAAAAAA AAA RAHA AAA ATA TATA AAT TAHT eee eee eee eee eee eeeeeeKeede 
: VERIFY HEADER SYNC GENERATION 
sWRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER 
:FIRST,COUNT NUMBER OF ZERO BITS UNTIL FIRST ONE BIT 
014334 012702 000020 MOV #16. ,R2 ;MAX TIMES THRU LOOP 
014340 005003 R3 
014342 90$: 


014342 016004 000024 RMMAR1(RO),R4 STORE RAMR1 AT R4 
014346 000010 oR4 

014352 10$ ; JUMP OUT OF LOOP WITH FIRST 1 
014354 : INCREMENT ZERO COUNT 

014356 ;DECREMENT MAX LOOP COUNT 
014360 

014362 

014364 000452 sHEADER SYNC ,CANT GET FIRST 1 
014366 : 


014366 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


014374 012760 051401 000024 #AR1AAA,RAMR1 (RO) ;LOAD RMMR1 
014402 000757 B 90$ 
014404 110$: 

MAKE SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC 
014404 020327 000010 CMP R3,#8. 


014410 103002 
014412 104043 
014414 000436 ;HEADER SYNC 
014416 1208: 

SAMPLE AND STORE THE REST OF THE HEADER SYNC 
014416 012702 000010 MOV #8. ,R2 ;NUMBER OF SAMPLES 
014422 005003 R3 HEADER SYNC 
014424 130$: 


arte 016004 000024 peereee ae STORE RMMR1 AT R4 
014432 000010 #MWD ,R4 ;SHIFT SAMPLE,IF SYNC BIT IS 1 
014436 001002 1408 ; THEN SET SAMPLE INPUT 


BEQ 80$ 
he FOR PROM STROBE TO GO OFF, THEN REPEAT LOOP 
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014440 
014444 
014446 


014450 


014456 
014464 
014466 


014466 
014474 
014500 
014506 
014510 
014512 


014512 
014514 
014522 
014524 


014576 
014602 


014652 


014660 
014664 
014666 
014670 
014674 


014674 
014700 
014702 
014704 
014710 


052703 
005302 
001407 


012760 
012760 
000757 


012737 


104044 


000004 


012737 
012706 


111160 
012737 


012737 


004737 


000137 


004737 
000403 
104000 
000137 


000001 


055401 
051401 


000230 
001142 
001140 


000021 
000024 


014554 


001100 


000010 
002037 


000063 


023326 


015472 


024206 


015472 


MACY11 


000024 
000024 


001140 
001142 


001226 


001120 
001131 
001122 
001124 


000010 


001410 
001436 
001434 


001404 
001402 


H 7 
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T20 SYNC GENERATION TEST 


BIS #B1T0,R3 
140$: DEC R2 
BEQ 150$ 


MOV #MRIAAA!MCLK,RMMRI(CRO) ;LOAD RMMR1 


MOV #MR1AAA,RAMR1 (RO) ;LOAD RMMR1 
BR 130$ ;D0 LOOP TIL R2=0 


150$: 
sVERIFY THE SYNC BIT STREAM IS 0000000010011000 
| #000230,$GDDAT 
R3,SBDDAT 
SGDDAT, SBDDAT 
160$ 


44 : INCORRECT HEADER SYNC 


160$: 


FRA A ARERR AERA AAA EEA AA AEE AERA RARAERAREKAEAERAARERREEEE 


s*TEST 21 WRITE HEADER TEST 


OEP e SSSI Cir irri titi iri ii iii titi iii ii tiiiiiiiiiiiiiiiig) 
TST21: 
#21,STESTN 3:SET TEST NUMBER IN APT MAIL BOX 


#20.,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T21,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T21,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#CLR,RACS2(RO) ;CLEAR THE MASSBUS 

MOVB (R1),RMCS2(RO) ;SELECT UNIT 

;SETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES 

MOV #002037,RMDAO~ ; 4, SECTOR 31 
#1466 ,RMOCO ZCYLINDER 822. 
#FAT16,RMOFO :1N 16 BIT FORMAT 
#BUFFER,R2 ;BUFFER ADDRESS 
R2,RMBAO ;BUFFER STARTS 
#151466,(R2)+  ;STORE FIRST HEADER WORD 
#002037, (R2) :STORE SECOND HEADER WORD 
# C2+1,RMWCO WORD CTR = 2 
#WH'GO,RMACS1O0 ;WRITE HEADER COMMAND 


EXECUTE -_ oye POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
J -ENBSCH 
BR 10$ :GO TO 108 IF NO ERROR 
ERROR RETURN HERE IF ERROR 
JMP 160$ : 


10$: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
JSR PC,SCTCMP 
BR 208 :G0 TO 208 IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
JMP 160$ 


208: 
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PITTI ISIS it iii ii iti iii i iti iii titi ititiiiitititiiiiiit ity 
STEP THE DATA TIMING SEQUENCER UNTIL "HEADER AREA‘’ COMES ON 

014710 012702 000017 MOV #15.,R2 ALLOW 15 MORE PROM STORBES 

014714 012704 000041 308: MOV #33. ,R4 ALLOW 33 BIT CLOCKS PER PROM STROBE 


we BIT CLOCK UNTIL PROM STRC3SE IS ON 


014720 
014720 012760 055401 000024 WMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
014726 012760 051401 000024 #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 


014734 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
014740 032703 000040 #WCR3 

014744 001004 

014746 005304 

014750 001363 

014752 000137 015472 COUNT EXHAUSTED 
014756 


014756 032703 000200 


014766 001015 BNE 60$ 
sERROR-HEADER AREA NEVER CAME ON 
014770 012737 000200 001140 MOV he ees ;SETUP ERROR MESSAGE 
& 
RO, $BDADR 
000024 001136 #RMMR1, SBDADR 
45 ;HEADER AREA WONT SET 
000137 015472 160$ SKIP REST OF TEST 


60$: 

;WAIT FOR PROM STROBE TO GO OFF 

015022 012760 055401 000024 #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
015030 012760 051401 000024 #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 


015036 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
032703 000040 #WC,R3 
001404 
005304 
001363 
000137 015472 COUNT EXHAUSTED 


015060 
BUS ONCE EVERY PROM STROBE 


015060 016037 000040 RMMR2(RO) ,SBDDAT STORE RMMR2 AT S$BDDAT 
176000 # (1777, $BDDAT 
000001 #8B00,$BDDAT WRITE GATE SHOULD BE ON 
30$ sALL ELSE OFF 
001136 RO, SBDADR : 
000040 #RMMR2 , SBDADR 
000001 0 #BB00,SGDDAT 
015124 104042 42 TAG BUS WRONG DURING FORMAT 


015022 
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CZRMKA.P11 O5S-APR-78 14:38 WRITE HEADER TEST 
4202 015126 000561 BR 160$ 
4203 015130 80$: 
4204 ;HEADER AREA IS NOW ON CAN START SAMPLE ‘ 
4205 :DATA AFTER 5 MORE BIT CLOCKS 
4206 015130 012702 000005 MOV #5,R2 
rH 015134 81$: 
rea 015134 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
4211 015142 012760 051461 000024 MOV #MR1AAA,RMMAR1 (RO) ;LOAD RMMR1 
4212 015150 005302 DEC R2 
4213 015152 001370 BNE 81$ 
4214 PLRRAAARA RARER REAR A AAA AAA A EAHA AA TEAR eA AAe eee eRe eee 
4215 ;SAMPLE AND STORE THE TWO HEADER WORDS 
4216 015154 005037 001174 CLR STMPO 
4217 015160 005037 001176 CLR STMP1 
4218 015164 012702 001174 MOV #STMPO,R2 ;R2 NUMBER OF WORDS/ADDRESS 
4219 015170 012703 000020 90$: MOV #16.,R3 ;NUMBER OF BITS 
4220 015174 005004 CLR R4 sWORD STORAGE 
m5 015176 100$: 
4223 015176 016005 000024 MOV RMMR1(RO),RS 7STORE RMMR1 AT RS 
4224 015202 006304 ASL R4 ;SHIFT WORD SAMPLE 
4225 015204 032705 000010 BIT #MWD RS ;SET BIT O IF WRITE BIT ON 
4226 015210 001002 BNE 110$ 
4227 015212 052704 000001 BIS #BITO,R4 
re 32 015216 110$: 
matey 015216 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
4232 015224 012760 051401 000024 MOV #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
4233 015232 005303 DEC R3 
4234 015234 001360 BNE 1008 
4235 015236 010422 MOV R4,(R2)+ :STORE WORD SAMPLE 
4236 015240 022702 001200 CMP #STMPO+4,R2 DONE ? 
4237 015244 101415 BLOS 120$ 7 YES 
4238 7HEADER AREA SHOULD STILL BE ON FOR SECOND HEADER WORD 
4239 015246 042705 177577 BIC # C<PHA>,R5 
4240 015252 001346 BNE 90$ ;BRANCH IF ON 
4241 015254 010037 001136 MOV RO, SBDADR 
4242 015260 062737 000024 001136 ADD #RMMR1,SBDADR 
4243 015266 012737 000200 001140 MOV #PHA,SGDDAT 
4244 015274 104045 ERROR 45 
4245 015276 000475 BR 1608 
4246 015300 120$: 
4247 SERRA A ARATE A AAA ARATE AAA AAA A ATER AAA AREER ARERR AAA R Tee 
4248 ;WAIT UNTIL ECRC SETS 
rtd 015300 005003 CLR R3 ;CHECK NUMBER BITS DIFFER BET PHA AND ECRC 
re tH 015302 1258: 
4253 015302 016005 000024 MOV RMMR1(RO),RS STORE RMMR1 AT RS 
4254 015306 042705 176777 BIC # C<ECRC>,RS ;CHECK OUT THE REST BITS 
a tS 015312 001026 BNE 1278 ;BRANCH IF ECRC ON 
of 


4257 015314 012760 055401 000024 MOV #MRIAAA!MCLK,RMMRI(RO) ;LOAD RMMR1 
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015322 012760 051401 
000020 
001136 
000024 
001000 
001142 
000441 
015370 


015370 012703 000020 

015374 005004 

015376 

015376 016005 000024 
000010 


052704 090001 
015416 


015416 012760 055401 
015424 012760 051401 
015432 005303 


015434 001360 
015436 010422 


015440 022737 066313 
174040 


167501 
001401 


104047 
015472 


015472 000004 


015534 


012737 


000022 


000024 
000001 
015534 
015534 
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000024 


001136 
001140 


000024 
000024 


001174 
001176 
001200 


001226 


001120 
001131 
001122 
001124 


WRITE HEADER TEST 


#MRIAAA,RMMR1 (RO) ;LOAD RMMR1 

R3 ; TOTAL NUMBER OF BIT DIFF 
#16. ,R3 ;OVER ONE WORD ? 

125$ 

RO, SBDADR 


;BRANCH IF NOT 
#RAAR1,SBDADR 
#ECRC,SGDDAT 
i ;CLEAR THE EXP 
160$ EXIT 
1278: 


FERRARA AAA EERE REAR EE AEA AAT RE RETA RAAAREAAEAREAEREEREKEREEE 
+ SAMPLE AND STORE CRC WORD 
V #16. ,R3 
RG 
130$: 


RMMR1(RO) RS 
R4 

#MWD RS 

140$ 
#BITO,R4 


STORE RMMR1 AT R5S 
:SHIFT WORD SAMPLE 
;SET BIT O IF WRITE BIT ON 


#ARIAAA!MCLK ,RMMR1 (RO) 
+ oc amauta 


130$ 
R4,(R2)+ 
FERAAAARAAAA AAA AAA AA AAA AA AARAA AAA AAARARARAAE AEE 
“VERIFY 3 HEADER WORDS 
;NOTE THAT DATA WAS STORED IN THE REVERSE 
TORDER FROM WHICH IT WAS WRITTEN 
CMP Fees 2. 57ers 


150$ 
as 
#167501, STMP2 
160$ 


LOAD RMMR1 
;LOAD RMMR1 


BRANCH IF ERROR 
BRANCH IF ERROR 


[BRANCH IF NO ERROR 
1508: 
47 


160$: END OF SUB TEST 


SPAR AAAA AAA AAA ATER EAAAAAAAKARAARERAAKEReEReRe eee 


s*TEST 22 HEADER COMPARE TEST 


FRA AA AREA AAA AERA ARATE AAA TAREE RAAAAREAAAARERAA AERA AAAeeERE 


TST22: 


#22,$TESTN 


#20.,SI1CNT 
#1, SERMAX 

#122, $LPADR 
#122, SLPERR 


7:SET TEST NUMBER Ii APT MAiL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


SEQ 0088 
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015534 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
015540 013700 001276 MOV SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
015544 013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 


;LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND 


015550 012737 001466 001436 #001466 ,RMDCO 3CYL=822. 
001410 #2037,RMDAO ; TRK=4,SEC=31. 
001406 #BUFFER,RABAO DATA ADDRESS 
001404 # C2+1,RAWCO READ HEADER ONLY 
001434 #FAT16,RMOFO 3:16 BIT MODE 
015606 012737 000073 001402 #RH!GO,RACS10 READ HEADER AND DATA FUN 


;CLEAR THE MASSBUS 
015614 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
015622 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
015626 004737 023326 JSR PC, ENBSCH 

015632 000403 BR 10$ :GO TO 10$ IF NO a 

015634 104000 ERROR RETURN HERE IF ERR 

015636 000137 016742 JMP 2308 SKIP REST OF TEST IF ERROR 


015642 108: 

FORCE SECTOR COMPARE a SUBROUTINE 
015642 004737 024206 JSR PC, SCTCMP 
015646 000403 BR 208 :GO TO 20$ IF NO ERROR 
015650 104000 ERROR ;RETURN HERE IF ERROR 
015652 000137 016742 JMP 2308 


015656 208: 

;READ GATE SHOULD BE OFF FOR 3 PROM STROBES 
015656 010037 001136 RO, SBDADR SETUP ERROR MESSAGE 
015662 001136 #RMMR2 , SBDADR 
015670 4 #4 ,R2 ;R2=NUMBER OF PROM STROBES 
015674 012704 000021 : #17. ,R4 MAX BIT CLOCKS 
015700 


:CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON 


015700 012760 055401 000024 #MRIAAA!MCLK,RMAMRI(RO) ;LOAD RMMR1 


015706 012760 051401 000024 #MR1AAA,RMMR1 (RO) LOAD RMMR1 


015714 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
000040 #WC,R3 
ae BRANCH WHEN PROM STROBE ON 


408 
000137 016742 2308 pttereeeneee 
015736 50$: 


VERIFY READ GATE IS OFF AND TAG BUS IS ZERO 
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015766 


015766 
015774 
016002 


016024 


016024 


016026 


016030 
016034 
016040 
016040 
016046 
016054 


016003 


000137 


012760 
012760 
016003 


000137 


005302 
001322 


012702 
012703 


012760 
012760 
016004 


000137 


016004 


012737 


000040 
176000 


001142 
001140 


016742 


055401 000024 
051401 000024 


000024 
000040 


016742 


000006 
000021 


055401 000024 
051401 000024 


000024 
000040 


016742 


000040 
176000 
000002 


001142 
000002 001140 
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HEADER COMPARE TEST 


RMMR2(RO) RS STORE RMMR2 AT RZ 
EN ll es 


R3,S$BDDAT 
> pee 
2308 READ HEADER FUNCTION 


60$: 
;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 


BRANCH IF TAG BUS ZERO 


#MRIAAA'MCLK,RMMR1(RO) LOAD RMMR1 
#MR1AAA,RAMR1 (RO) ;LOAD RMMR1 
RMMR1(RO),R3  ; STORE RMMR1 AT R3 
705 :BRANCH IF PROM STROBE OFF 


ptteereneenenes 
70$: ' 
;CONTINUE FOR 3 BIT CYCLE TOTAL (LOC O NOT SAMPLED) 


DEC R2 
BNE 30$ 


PUT ITIST STITT TI Titi rit tii titi titer iii itiititiiiiiititiititii it) 

;READ GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY 

30N FOR 7 CYCLES (AND MORE) 

MOV #6,R2 

80$: MOV #17. ,R3 

sCLOCK BIT CLOCK TIL PR STROBE SETS 

90$: 
#MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1I 
#MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMAR1(RO),R4 :STORE RMMR1 AT R4 
#WCR4 

;BRANCH WHEN PROM STROBE ON 
peeteteeeees 

100$: 

;VERIFY READ GATE ON AND REST OF .TAG BUS OFF 
RMMR2 (RO) ,R4 sSTORE RMMR2 AT R4 
# €1777,R4 
#BB01,R4 
110$ 
R4,$BDDAT 
#BB01,$GDDAT 


BRANCH IF READ GATE ON 


SEQ 0090 
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016126 104050 ERROR 50 TAG BUS INCORRECT DURING 
016130 000137 016742 JMP 2308 ' ;READ HEADER FUNCTION 


016134 110$: 
;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 
016134 012760 055401 000024 MOV #MRIAAA!MCLK,RAMR1(RO) ;LOAD RMMR1 
016142 012760 051461 000024 #MRIAAA,RMMR1 (RO) LOAD RMMR1 
016150 016004 000024 RMMR1(RO),R4 STORE RMMR1 AT R4 
000040 4 
;BRANCH WHEN PROM STROBE OFF 


‘ 


016166 000137 016742 
016172 


120$: 
; CONTINUE FOR TOATL OF 7 CYCLES 
016172 005302 DEC R2 


016174 001317 BNE 80$ 5 t8ee8s 


SPREE ERE ERE REAR ERA EAE AEE AEE ERA AAEAAKEREAEKAAKAAEEEE 


;LOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE 
016176 012702 000021 MOV #17.,R2 MAX BIT CLOCKS 


130$: 
;CLOCK BIT CLOCK TIL PROM STROBE SETS 


016202 


016202 012760 055401 000024 #MRIAAA!MCLK,RMMRT(RO) ;LOAD RMMR1 
016210 012760 051401 000024 #MRIAAA,RMMR1 (RO) ;LOAD RMMR1 
016216 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
000040 #WC ,R3 
;BRANCH WHEN PROM STROBE ON 


MMMAMMAMAMM MA AAA A MM Mn 
eek ed ed et ot ot ot oot ot ot ot ot 
tal Lal Lal Cal Cal Lal Lal La Lo FO ARR RPP A) A 


000137 016742 
016240 140$: 


sVERIFY 
016240 042703 175777 BIC 
001142 
002000 001140 
001136 RO, SBDADR 
00002¢ 001136 #RAAR1 , SBDADR 
000137 016742 a —-:2308 
016300 012703 000005 "mov #5,R3 
;WITH PLFS ON, WORD COUNT INHIBIT WILL SET IN 5 BIT CLOCKS 
016304 1558: 


016304 012760 055401 000024 MOV #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


MMAM AMAA 
“wt ot tt ot et 
amiuninarchininaiariain & 
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016312 
016320 
016322 


016324 


016356 


016356 
016364 


016372 


016400 
016402 


016404 


016462 


016462 
016470 


016476 


016514 


016516 
016522 
016526 
016526 
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012760 
005303 
001370 


012702 
012703 


012737 


052737 


013760 
042737 


013760 
005303 
001354 


012702 


012737 


012703 
012204 


012737 
000241 
006004 
103003 
052737 


013760 
042737 
013760 
005303 
001354 
020227 
101746 
012702 


012703 


012760 


051401 


000031 
000010 


055401 
002000 
001426 


004000 
001426 


001174 


101367 
000020 


055401 


002000 
001426 
004000 
001426 
001200 


000006 
000021 


055401 
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000024 


001426 


001426 
000024 
001426 
000024 


001174 
001176 
001200 


001426 


001426 


000024 


001426 - 


000024 


000024 


MOV #AR1TAAA,RAARI (RO) ;LOAD RMMR1 
DEC R3 
BNE 1558 


POET TITS ili tii il iri iii titiiiititiitititiiiitititit iit) 
;SIMULATE THE SYNC PATTERN BEING READ 

MOV #31,R2 SYNC PATTERN=00011001 

MOV #8. ,R3 38 BITS IN PATTERN 


160$: 
MOV #ARTAAA!MCLK,RMMRIO 
CLC 
ROR R2 
BCC 165$ 
BIS #ARD,RMARIO 
165$: 
MOV RMAR10,RMMR1 (RO) ;LOAD RMMR1 
BIC #MCLK,RAMRIO 
MOV RMMAR10,RAAR1 (RO) ;LOAD RMMR1 
DEC R3 sCONTINUE TIL SHIFT COUNT 
BNE 160$ :1S ZERO 
FFARR AEE AERA EAE EAA EAA E AERA EEE AERA AEEREEKEKKEEKERE 
s;SIMULATE THE HEADER BEING READ 
MOV # PO, 
MOV #151466, STMPO 
MOV #2037, STMP1 pteteeeeeeenne 
1708 MOV #101367,STMP2 sCRC PATTERN *** 
MOV #16. ,R3 ;NUMBER OF BITS EACH WORD 
“ee MOV (R2)+,R4 ;HEADER WORD 1,2 OR 3 
MOV #MRIAAA!MCLK,RMMR1IO 
CLC 
ROR R4 
BCC 180$ 
BIS #MRD,RMAR10 
180$: 
MOV RMMAR10,RMMR1 (RO) ;LOAD RMMR1 
BIC #MCLK,RMMR10 . 
MOV RMMR10,RMMR1(RO) ;LOAD RMMR1 
a R3 :SHIFT OUT 16 BITS 


175$ 
CMP R2,#STMPO+4 sALL DONE ? 
BLOS 1708 ;BRANCH IF NOT 
PET ISIC Ieta sisi rita ri titiriritlitiitetitiitaiiiiitiiiititiriiiyy 
mmon™*y shea Poa COME ON WITHIN 6 STROBES 


185$: MOV #17. ,R3 
(sect UNTIL PROM STROBE ON 


MOV #MRTAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


SEQ 0092 
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016534 
016542 


016562 


016562 
016566 


016570 


016624 


016624 
016632 
016640 


016660 


016660 


016720 


016720 
016726 
016730 
016736 
016740 


016740 
016742 


012760 
016004 


000470 
042704 
001034 
005302 


000447 


012760 
012760 
016004 


000431 


016037 


000411 


023737 
001004 
023737 
001401 


104052 


051401 


000024 
000040 


175777 


001142 
002000 
001136 
000024 


055401 
051401 


000024 
000040 


000014 
177157 


001140 


001136 
000014 


054062 
054064 
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000024 


001140 
001136 


000024 
000024 


001174 
001176 


HEADER COMPARE TEST 


#AR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1(RO),R4 STORE RMMR1 AT R4 
#WC,R4 


195$: 
:SEE IF ‘‘PLFS*’ IS ON 
BIC # CPLFS,R4 
210$ 


BNE 1 
> CONTINUE IF LESS THAN 6 PROM STROBES 
DEC R2 


;SETUP ERROR 


2308 ; HEADER 

2008: 

;CLOCK UNTIL PROM STROBE OFF 
#MRIAAA'MCLK,RMAMR1(RO) ;LOAD RMMR1 
#MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1(RO),R4 ;STORE RMMR1 AT R4 


210$: 
;VERIFY NO HEADER ERROR IS SET 


RMER1(RO) ,SBDDAT 
# C<HCRC!HCE!FER>, SBDDAT 
2208 


SGDDAT 

RO, SBDADR 

nee 

2308 HEADER ERROR SET 


2208: 
s VERIFY MEMORY OK 
CMP 1 ae tact : COMPARE 1 ST HEADER WORD 


eat COMPARE 2 ND HEADER WORD 


;STORE RMER1 AT SBDDAT 


2258: 
;REPORT ERROR a ws OR MORE HEADER WORDS 


ERROR 
2308: 


SEQ 0093 
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FRAAARARAAAA AERA AAA AAA AE RATATAT EAA ARATE AAAAAAEARAREAAERERAAREREE 


aTEST 23 ECC GENERATION TEST 


PETTITT ELIT i iii iii rir iri iil ilitititiviiititiiiiiititiiits! 
016742 000004 TST23: 
000023 001226 #23, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20.,S1CNT 320 ITERATIONS 

000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 

017004 001122 #T23,S$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 017004 001124 #T123,SLPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
013700 001276 SBASE,RO ;RO = UNIBUS ADDRESS OF UUT 
013701 001456 TSTQUE ,R1 3R1 = POINTER TO DEVICE 
012760 000040 000010 #CLR,RMACS2(RO) ;CLEAR THE MASSBUS 
017026 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
é OUTPUT BUFFER FOR WRITE DATA CAMOMMAND 
017032 012737 002037 001410 MOV #002037,RMDAO ;TRK 4, SEC 31 
001436 #1466,RMOCO ;CYL=822. 
001434 #FAT16!HCI,RMOFO 716 BIT FORMAT, IGNORE HEADER 
#BUFFER,R2 
R2,RMBAO ;DATA ADDRESS 
# €256.41,R3 
R3,RMWCO 
017074 012737 000061 001402 MOV #W0'GO, RACS10 sWRITE DATA COMMAND *** 
:FILL THE DATA BUFFER WITH ALL ONES 
017102 012704 177777 MOV 177777, R4 DATA PATTERN ALL ONES 
017106 000400 0,R3 3; ONE SECTOR DATA FIELD 
017112 10$: 
017114 
017116 001375 BNE 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
017120 004737 023326 JSR PC,,ENBSCH 


000403 208 :GO TO 208 IF NO ERROR 

104000 ERRO RETURN HERE IF ERROR 

000137 017726 
017134 


208: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
017134 004737 024206 JSR PC, SCTCMP 

017140 000403 BR 30$ :G0 TO 308 IF NO ERROR 
017142 104000 ERROR ;RETURN HERE IF ERROR 
017144 000137 017726 JMP 2208 


017150 30$: 
:SET “LOOKING FOR SYNC’ USING SUBROUTINE 
017150 004737 024314 JSR PC,SETLFS 
000403 BR 40$ 
104000 ERROR 
000137 017726 JMP 2208 


017164 40$: 
CLOCK THE SYNC PATTERN USING SUBROUTINE 
017164 004737 024476 JSR cael , CLKSNC 


ERROR 
017174 000137 017726 2208 
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HEADER COMPARE IS INHIBITED FOR THIS TEST 

:CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS 
;FOR EACH LEADING EDGD OF PROM STROBE 

: HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL) 

; ENABLE CRC OUT 

; WRITE GATE 


017200 012702 017732 508: MOV #2308 ,R2 ptteeee POINTER TO WAVE FORM TABLE 


017204 708: 
CLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON 
017204 004737 017752 JSR PC,300$ 


017210 808: 
PROM SiROBE IS ON - VERIFY WAVEFORM 


017210 016037 000024 001142 MOV RMMR1(RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
176157 001142 BIC # C<KECRC!PDA!PHA!EECC>, SBDDAT 
001140 MOV (R2)+,$GDDAT 
001140 001142 CMP SGDDAT, SBDDAT 
017236 001410 BEQ 908 ;BRANCH IF RMMR1 OK 
;ERROR - THE DATA TIMING SEQUENCER OUTPUT IS ONCORRECT 
017240 010037 001136 MOV RO,SBDADR 
000024 001136 #RAARI , SBDADR 


4 
000137 017726 2208 
017260 
BUS - 


017260 016037 000040 001142 RMMR2(RO) ,SBODAT STORE RMMR2 AT SBDDAT 
176000 001142 # C1777, $BDDAT 
001140 (R2)+,$GDDAT 
001140 001142 SGDDAT, $BDDAT 
017306 001410 B 100$ BRANCH IF TAG BUS OK 
; IS WRONG 
017310 010037 001136 M RO, SBDADR 
017314 062737 000040 001136 #RMMR2,SBDADR 
017322 104053 53 : TAG BUS WRONG 
017324 000137 017726 JM 2208 


017330 100$: 
CLOCK BIT CLOCK TIL PROM STROBE RESETS 
017330 004737 020060 JSR PC,350$ 
017334 110$: 
CONTINUE CHECKING THROUGH 4 PROM CYCLES 
017334 020227 017750 CMP R2,#230$+16 ptrtetere 
017340 103721 BLO 708 
PORTS ITIIC ITIL IIT eS Iti titi titi titi titi titi titi tit iti titi it it itt 
;VERIFY THAT DATA AREA COMES ON WITHIN 9 PROM STROBES 
017342 012702 000011 MOV #9.,R2 ;R2=9 STROBES 


017346 130$: 
:CLOCK PROM STROBE ON 
017346 004737 017752 JSR PC,500$ 


017352 140$: 
;PROM STROBE ON CKECK IF DATA AREA ON 
017352 016004 000024 MOV RMMR1(RO) ,R4 STORE RMMR1 AT R4 


DATA TIMING SEQUENCER WRONG 
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017356 042704 177377 BIC # CPDA,R4 
017362 001020 BNE 1608 
;CLOCK PROM STROBE OFF 


017364 1508: 
017364 004737 020060 JSR PC,350$ 
017370 005302 DEC R2 


017372 001365 BNE 130$ 
;ERROR=DATA AREA DIDN'T COME ON 
017374 012737 aortas 001140 MOV A,$GDDAT SETUP ERROR MESSAGE 
001136 
000024 001136 RAR , SBDADR 


000541 B 2208 
017424 160$: 
SF RRA RARER AAR E EAE AE AEA AEAARAAAAAEREREAEAARAREREE 
:VERIFY THAT DATA AREA IS ON FOR 256 CYCLES 
017424 012702 000400 MOV #256. ,R2 


017430 1708: 
:VERIFY THAT DATA AREA IS ON AND ECC IS OFF 


017430 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
177357 # C<PDA!EECC>,R3 


000400 
:DATA AREA IS ON 
001142 R3,$BODAT 
001140 #PDA,SGDDAT 
RO, $BDADR 
000024 001136 #RAMAR1,SBDADR 
55 DATA ERROR NOT ON 
000514 B 2208 
017476 180$: 
;CLOCK PROM STROBE OFF 
017476 004737 020060 JSR PC,350$ 


;CLOCK PROM STROBE ON 
017502 004737 017752 JSR PC,300$ 

:CONTINUE TIL COUNT ZERO 
017506 005302 DEC R2 


017510 001347 


BNE 170$ 
ECC SHOULD BE ENABLED WITHIN 4 CLOCK BITS 


017512 005002 CLR R2 
017514 182$: 


017514 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
017520 042703 177357 # C<PDA!EECC>,R3 

017524 022703 000020 #EECC,RS 

017530 001426 190$ 

017532 005202 R2 


017534 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
017542 012760 051401 000024 BP eacaaman ne ;LOAD RMMR1 


017550 022702 000007 . 
017554 101357 182$ 


MMA 
ad Cd Lad Cad Cod Ud Cal Ll Ud 
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017556 010337 001142 R3,SBDDAT 
000020 001140 
001136 DA 
000024 001136 gRAARI » SBOADR 
000450 B 2208 


190$: 
s SAMPLE ECC CHARACTER FOR 32 BITS 
012702 001174 MOV #STMPO,R2 
005003 195$: R3 
012704 000020 #16. ,R4 
017620 2008: 
017620 016005 000024 ma de zSTORE RMMR1 AT RS 
000010 #MWD RS 
2058 


052703 000001 B #BITO,R3 
017640 


017640 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


;BRANCH IF ECC BIT OFF (MWD INVERTED) 


017646 012760 051401 000024 #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
017654 R4 

017656 2008 

017660 R3,(R2)+ 


017662 001200 #STMPO+4,R2 
017666 101351 195$ 


PRRAARA AAA A AE AEA RETA AERA EAE REREEREEAE AREER 
VERIFY a8 CHARACTER GENERATED 
017670 022737 131177 001174 a 311 177,$TMPO _; teeeeere 
175154 001176 #175154 ,STHPI teers 
131177 001200 : #131177,STMP2  ; teeeee 
175154 001202 #175154.$TMP3  :eeeeee 
104061 :ECC GENERATED INCORRECT 
017726 000137 020164 : :GREAT ESCAPE 


017732 000200 


perereee 
4 ptrtere 
017750 000000 : : 
017752 012737 000021 020054 300S: #17. ,3208 

017760 3058: 

017760 012760 055401 000024 #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 


CLOCK PROM STROBE ON 
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017766 012760 051401 000024 #MR1AAA,RAMR1 (RO) ;LOAD RMMR1 
017774 016037 000024 020056 a ae STORE RMMR1 AT 3308 


177737 020056 
EXIT IF PROM STROBE ON 
020054 


3 
020054 001142 . SETUP ERROR MESSAGE 
001140 


000024 001136 


: ° MAX BIT COUNT 
020056 000000 : . ;RMMR1 CONTENTS 


020060 012737 000021 020160 : #17. ,3708 


;CLOCK PROM STROBE OFF 
020066 


020066 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
020074 012760 051401 000024 #MR1AAA,RAMR1 (RO) ;LOAD RMMR1 
020102 016037 000024 020162 ee eeokeeee STORE RMMR1 AT 380$ 


177737 020162 # CWC, 3808 
3608 
020160 370$ 


3558 
020162 001142 ont SBDDAT 
001140 D 
001136 -SBDA 
000024 001136 #RMMR1, SBDADR 
62 ;CAN''T CLEAR PROM STROBE 
400$ 
020156 000207 360$: PC 


020160 000000 370$: .WORD 0 MAX BIT COUNT 
020162 000000 380$: .WORD 0 CONTENTS OF RMMR1 


020164 4008: ;SUB-TEST EXIT POINT 
020164 000240 NOP tenes 


RRA A AREER AAA AAA AERA EAE EEE 


SATEST ra) ECC DETECTION TEST 


aan comma ene ee ee ee ee ee 


020166 000004 TST24: 
000024 001226 #24,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 

000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 

020230 001122 #124,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 020230 001124 #724,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


020230 012706 001100 #STACK,SP ;LOAD THE STACK POINTER 
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020234 013700 001276 SBASE ,RO RO = UNIBUS ADDRESS OF UUT 
020240 TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
020244 000010 #CLR,RACS2(RO) : CLEAR THE MASSBUS 
020252 111160 000010 MOVB (R1),RMCS2(RO) SELECT UNIT 
OUTPUT BUFFER FOR READ DATA COMMAND 
020256 012737 002037 001410 MOV #2037, RMDAO 
001466 001436 #1466, RMOCO sCYL=822. TRK =4, SEC=31 
012000 001434 #FAT16!HCI,RMOFO ; INHIBIT HEADER COMPARE 
054062 E,R2 
001406 
177400 001404 # €256.+1,RMWCO 3256 WORDS 
os0s2e 012737 000071 001402 #RD!GO,RMCS10 ;READ DATA COMMAND 


208: 
sEXECUTE DATA COMMAND TO POIN? WHERE SEARCH IS ENABLED USING SUBROUTINE 
020324 004737 023326 JSR PC, ENBSCH 


020330 000403 30$ :GO TO 30$ IF NO ERROR 
020332 104000 ERRO RETURN HERE IF ERROR 
020334 000137 021176 


020340 30$: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
020340 004737 024206 JSR PC,SCTCMP 
000403 BR 40% :GO TO 40$ IF NO ERROR 
104000 ERROR ;RETURN HERE IF ERROR 
000137 021176 JMP 190$ 


020354 40$: 
;SET “*LOOKING FOR SYNC" 1 wae SUBROUTINE 


020354 004737 024314 JSR cs ene 


BR 
ERROR 
000137 021176 JMP 190$ 


020370 50$: 
;CLOCK THE SYNC PATTERN USING SUBROUTINE 
020370 004737 024476 JS +) names 


020400 000137 021176 190$ 
RTPI S Telit it ii ititii iii rititiritititititititititititiiiiiitits! 
HEADER COMPARE IS INHIBITED FOR THIS TEST 
:‘"LOOKING FOR SYNC’ SHOULD GO OFF WITHIN ONE CYCLE 
020404 012702 000002 55$: ag #3 -Ae ;ALLOW 2 PASSES THRU LOOP 
021310 60$: PC,350$ ;RESET PROM STROBE 
021202 PC,300$ SET PROM STROBE 
000240 
020424 70$: 


020424 016003 000024 RMMR1(RO) R53 STORE RMMR1 AT R3 

020430 002000 #PLFS.R3 

020434 80$ BRANCH IF LOOKING FOR SYNC OFF 
020436 R2 


020440 001364 BNE 60$ 
sERROR=LOOKING FOR SYNC = NOT RESET DURING HEADER 
020442 010337 001142 MOV R3,$BDDAT ; SETUP ERROR MESSAGE 
020446 042737 175777 001142 # CPLES, SBDDAT 
020454 005037 001140 SGDDAT 
020460 010037 001136 MOV RO, SBDADR 
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020464 062737 000024 001136 ADD #RAMR1, SBDADR 
104040 R 40 sPLFS NOT RESET AGTER HEADER 
000137 021176 £0 190$ 


FEAR AAA AAA AAA EAA REAR AAAEAEAREAEAAAEEAREREEAEE 


: LOOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES 
012702 000011 MOV 9. ,R2 


#9.,R 
004737 021310 85$: PC, 3508 SET STROBE OFF 
020510 004737 021202 PC ,300$ ;SET PROM STROBE 


020514 016003 000024 RMMR1(RO) RS STORE RMMR1 AT R3 
020520 002000 #PLFS,R3 : 

020524 90$ BRANCH IF SYNC ENABLED 
020526 R2 


020530 001365 BNE 85$ 

;ERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA 
020532 012737 002000 0601140 MOV #PLFS,S$GDDAT 
020540 010337 001142 R3,S$BDDAT 


020544 042737 175777 001142 & gt ete es 
020552 010037 001136 RO,$ 
020556 062737 000024 001136 SRAARI ASBDADR 
020564 104035 35 CAN'T SET PLFS DURING DATA 
020566 000137 021176 1908 
020572 90$: 
020572 004737 021310 JSR PC,350$ ;RESET PROM STROBE 
:CLOCK THE SYNC PATTERN USING SUBROUTINE 
020576 004737 024476 JSR PC,CLKSNC 
020602 000402 BR 100$ 
020604 104000 ERROR 
020606 000573 BR 1908 
020610 1008: 
eee CIS C Cire r iii iii titi itiiiiiiiiiiiiiiiiy) 
:SIMULATE READ DATA 
020610 012702 000400 MOV #256. ,R2 :WORD COUNT 
012703 000020 oa MOV #16. ,R3 ;BI1T COUNT 


012760 057401 000024 #MRIAAA! MRD! MCLK,RMMR1 (RO) LOAD RMMR1 
012760 053401 000024 ~ rennet: ;LOAD RMMR1 


001364 
SERRA AOA AERA AAA AE ATTA ATTRA AAA ATA ARERAERAAERERAAAEKEEE 
: SIMULATE a PATTERN 
012737 177446 #177446, STMPO sFIRST ECC WORD 
#015457, STMP1 ;SECOND ECC WORD 
#STMPO,R 
120$: 


#16. ,R3 
055401 125$: #MRIAAASMCLK ,R4 


020702 052704 002000 #ARD,R4 
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020706 


020706 
020712 


020716 


020736 
020740 


020744 
020750 


020754 


021024 
021024 


021064 


021064 


021132 


010460 
042704 


010460 


001752 
012702 


004737 
004737 


016003 


000465 


016003 


000445 


016003 


000422 


000024 
004000 


000024 


000002 
001176 


000005 


021202 
021310 


000024 
000400 


177377 


000024 


000040 
176000 


001142 
001140 
001136 
000040 


000014 
077677 
000000 
001140 


001142 
001136 
000014 
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001136 


001136 


001140 


001136 


ECC DETECTION TEST 
130$: 


R4,RMMR1(RO) LOAD RMMR1 
#ACLK,R4 


—— ;LOAD RMMR1 
125$ :CLOCK A WORD 


#2,R2 
#STMP1,R2 
BEQ 1208 ;CLOCK THE NEXT WORD 
VERIFY DATA AREA - READ GATE RESET 
M 


° 


140$: PC,300$ :SET PROM STROBE 
PC,350$ ;CLEAR PROM STROBE 


RMMR1(RO) RS STORE RMMR1 AT R3 
#PDA,R3 

150$ 

R2 

140$ 

# CPDA,R3 ;SETUP ERROR MESSAGE 
R3,3BDDAT 


63 DATA AREA WON'T RESET 
190$ 


RMMR2(RO) RS STORE RMMR2 AT R3 
# C1777,R3 
160$ 
R3,$BDDAT 
S$GDDAT 

RO, $BDADR 

+ ecamnameaines 


190$ 
160$: 
PTAA AAA EEA EAA RAAT AEA AT AAA AEA AERA ERA ee et 


VERIFY THERE ARE NO ECC ERRORS 


RMER1(RO) ,R3 STORE RMER1 AT R3 
# C<DCKIECH>,R3 

#000000 ,SGDDAT 

SGDDAT,R3 

1708 

R3,$BDDAT 

RO, $BDADR 

ess cane 


190$ 
170$: 


WEARS AASAARRRARARASLARSLARE SERRA SARA ASAE EERE S RARER EASES AREER SS S| 


READ GATE WON'T RESET 


SEQ 0101 
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021132 


021202 
021210 
021210 
021216 
021224 


021304 
021306 
021310 
021316 
021316 
021324 
021332 


021402 


O5-APR-78 14:38 


012702 


012737 


012760 
012760 


016037 
042737 


000000 
000000 
012737 


012760 


012760 
016037 


104062 


054062 
177777 


- 000400 


001142 
001140 
001136 


021414 
000021 


055401 
051401 


000024 
177737 


021304 
021304 
000040 


001136 
000024 


000021 


055401 
051401 


000024 
177737 


* 921410 


021412 


000024 


MACY11 30A(1052) 
T24 


021304 


000024 
000024 


021306 
021306 


001142 
001140 


001136 


021410 


000024 
000024 


021412 
021412 


001142 


001136 
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VERIFY DATA BUFFER 
" 


OV #OUFONE ,R2 ;DATA WAS STORED HERE 
MOV #177777,R3 ;EACH WORD ALL ONES 
MOV #256. .R4 
180$: CMP (R2)+,R3 
BNE 185$ 
DEC R4 
BNE 180$ 
BR 190$ sEXIT IF ALL THE LOCATIONS CHECKED 
185$: MOV -(R2),SBDDAT ;SETUP ERROR MESSAGE 
MOV R3,SGDDAT 
MOV R2,$BDADR 
ERROR 65 ;DATA INCORRECT DURING READ 
190$: JMP 400$ ;GREAT ESCAPE 
300$: MOV #17.,3208 
;CLOCK PROM STROBE ON 
305$: 
MOV #MARTAAA'MCLK,RMMR1(RO) ;LOAD RMMRI 
MOV #PAR1AAA,RMARI CRO) sLOAD RMMR1 
MOV RMMR1(RO),330$ ;STORE RMMR1 AT 330$ 
BIC # CwWwC,330$8 
BNE 310$ sEXIT IF PROM STROBE ON 
DEC 3208 
BNE 305$ 
MOV 320$,$BDDAT ;SETUP ERROR MESSAGE 
MOV #WC ,SGDDAT 
MOV RO, SBDADR 
ADD #RMMR1,SBDADR 
ERROR 30 
BR 400$ 
3108: RTS PC 
320$: .WORD 0 
330$: .WORD 0 


350$: MOV #17., 
;CLOCK THE STROBE OFF 
355$: 


MOV 


3708 


#MRIAAA!MCLK,RMAMR1(RO) ;LOAD RMMR1 
#MR1AAA,RMMR1 (RO) ;LOAD RMMR1 


RMMR1(RO),380$ ;STORE RMMR1 AT 380$ 
# CWC, 3808 


360$ 
370$ 


355$ 
380$,$BDDAT 
SGDDAT 

RO, SBDADR 

-* rmahdaaaamien 


CAN'T CLEAR PROM STROBE 
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021404 000403 BR 400$ 

021406 : RTS PC 

021410 : WORD 0 

021412 : WORD 0 

021414 000240 : NOP ;SUB-TEST EXIT POINT 
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021416 SEOSP: 
000240 
001456 TSTQUE ,RO 
000002 #2,R0 
001456 RO, TSTQUE 
(RO) 


1$ 
004414 = READY 
021444 012737 001460 001456 158: #TSTQUE +2, TSTQUE 
-SBTTL END OF PASS ROUTINE 


CSPI ITIP r irri rir iit i iti iii titra titties) 
S SINCREMENT THE PASS NUMBER ($PASS) 
*TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vYyYYY"’ 
;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T JUMP TO READY 


021452 SEOP: 
000240 


001116 STSTNM :;ZERO THE TEST NUMBER 
001206 STIMES +3 ZERO THE NUMBER OF ITERATIONS 
001230 SPASS : INCREMENT THE PASS NUMBER 
100000 001230 MS asec :3DON*T ALLOW A NEG. NUMBER 

+ : 


DE 
SEOPCT: 
BG 


1 
SDOAGN YES 
m (PC)+,a(PC)+  ;;RESTORE COUNTER 
SENDCT: . 1 


021520 +t is TYPE ASCIZ STRING 
021516 000407 BR 64$ ;GET OVER THE ASCIZ 
33658: . <12><15>/END PASS #/ 
021536 $: 


021536 013746 001230 SPASS,-(SP) 3:SAVE SPASS FOR TYPEOUT 
8 7: TYPE PASS NUMBER 
021542 104405 3:G0 TYPE--DECIMAL ASCII WITH SIGN 
021544 104401 021552 .67$ 2s TYPE ASCIZ STRING 
021550 000421 BR 66$ ;GET OVER THE ASCIZ 
sorete / TOTAL ERRORS SINCE LAST REPORT / 


021614 013746 001126 SERTTL,-(SP) ::SAVE SERTTL FOR TYPEOUT 
>: TOTAL NUMBER OF ERRORS 
021620 104405 72GO0 TYPE--DECIMAL ASCII WITH SIGN 
001217 : Zi TYPE CARRIAGE RETURN, LINE FEED 
001126 CL ::CLEAR ERROR TOTAL 
000042 $GET42° 7:GET MONITOR ADDRESS 
BE ::BRANCH IF NO MONITOR 
R t:CLEAR THE WORLD 
SENDAD: 3:G0 TO MONITOR 
N 7:SAVE ROOM 


000240 N 
SDOAGN: 


000137 JMP a(PC)+ 7 RETURN 
021654 004414 SRTNAD: .WORD READY 
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5159 021656 
5160 


DSKLS PRT 2 
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377 
21662 


377 


MACY11 30A(1052) 05-APR- a 
END OF PASS ROUF INE 


8 
14:49 


000 SENULL: .BYTE !-1,-1,0 
EVEN 


i 
i 
e 
' 
Q 


9 
PAGE 105 


3;NULL CHARACTER STRING 


SEQ 0105 
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021662 


021674 
021700 
021704 
021710 


021714 


021736 
021742 


021766 
021772 


022002 
022006 
022010 
022011 


022012 


022024 


104414 


000137 
104401 
104401 
013746 


104403 
0 


013746 
104403 
003 


013746 
104403 
003 
000 
104401 
013746 
104403 
006 
001 
005737 


105037 


020000 
022412 


001217 
022426 
001234 


022416 
001226 
022434 
022416 


022420 
001130 


022444 
022420 


022453 
001132 


022420 


001217 
022424 


cc 9 
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157262 


022416 


022420 


SUBROUTINES 
-SBTTL SUBROUTINES 


SERRA RARER ERATE AERA ERATE AERA EAE A AEA AERA AEAEERAAREREEEE 


-SBTTL ERROR TYPEOUT ROUTINE 


:*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
> *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


:* 
;* -UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
; *PRINTED ON THE FIRST LINE; 

ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 
:+ONE OR MORE SUCCEEDING LINES; 

-PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
+ SARE PRINTED AFTER THE ERROR MESSAGE. 


ERRTYP: 
+ tarenarane 71 TYPEOUTS?? 


iN 
' ! 


JMP 21$ 77 
iw am “aren 7 NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 


~ERTYOO sTYPE “‘UNT#’’ 

SUNIT, - (SP) >: SAVE SUNIT FOR TYPEOUT 
3: TYPE UNIT NUMBER 
3:G0 TYPE--OCTAL ASCII 

3 sz TYPE 3 DIGIT(S) 
3: SUPPRESS LEADING ZEROS 


0 
TSTNMB ;LOAD TEST NUMBER FOR 


STESTN, TSTNMB 
»ERTYOI sTYPE “‘TST# 


TSTNMB, -(SP) 3:SAVE TSTNMB FOR TYPEOUT 
3; TYPE TEST NUMBER 
3:GO TYPE--OCTAL ASCII 
33 TYPE 3 DIGIT(S) 
3; SUPPRESS LEADING ZEROS 
ERRNMB LOAD ee NUMBER FOR 
SITEMB,ERRNMB ;TYPEOUT 
2s SKIP IF +3 ERROR CALLED 
~ERTYO2 sTYPE “‘ERR 
ERRNMB ,-(SP) +; SAVE ERRNO FOR TYPEOUT 
7; TYPE ERROR NUMBER 
3:G0 TYPE--OCTAL ASCII 
3 3:3 TYPE 3 DIGIT(S) 
+; SUPPRESS, LEADING ZEROS 
,ERTYO3 TYPE ‘'PC= 
SERRPC,-(SP) +; SAVE SERRPC FOR TYPEQUT 
7: TYPE PROGRAM COUNTER 
3:60 organ 2 ASCII 
a3 tue 6 DIGIT(S) 
-BYTE 1 TYPE LEADING ZEROS 
: GENERATE POINTER TO ERROR TABLE. “UNLESS ERROR NUMBER IS 0 
3$: TST ERRNMAB WAS | AN ERROR CALLED? 


NO! 
iVES- TYPE CRLF 
CLRB BOTFLG CLEAR BOT FLAG 


SEQ 0106 
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022030 105037 022425 CHRCNT CLEAR CHARACTER COUNTER 
022420 ERRNMB RO ;RO POINTS TO FIRST OF 
RO FOUR ENTRIES IN ERROR 
RO ; TABLE 


RO 
001522 #SERRTB-8. ,RO 
022052 011001 (RO) ,R1 cma TO ERROR MESSAGE 
L 


022054 001507 BEQ i BRANCH IF NO ERROR MESSAGE 
022056 012102 4$: MOV (R1)+,R2 ;R2=ADDRESS OF MESSAGE STRING 
12$ BRANCH IF END OF MESSAGE 
022230 R2,11$ LOAD ADDRESS OF STRING 
022422 BOTADR ;CLEAR BOT ADDRESS 
(R2)+,R3 7END OF STRING?? 
10$ 7 YES! 


000015 —— EAR AGE RETURN?? 


022425 CHRCNT : YES-CLEAR CHAR COUNT 
B 5$ :GET NEXT CHARACTER 
000012 : #LF ,R3 :LINE FEED?? 
5$ :YES-GET NEXT CHARACTER 
000011 a a TAB?? 


022425 7$: CHRCNT sADJUST CHARACTER COUNT 
000007 022425 emacs 


9$ 
022425 : CHRCNT 4 en ad CHARACTER COUNT 
000040 . oR3 + SPACE?? 


:NO! 
022422 R2,BOTAOR ‘Save er Aad SPACE 
000100 022425 : — ZEND OF LINE?? 


022422 BOTADR ,R4 GET ADDRESS OF LAST SPACE 
90$ BRANCH IF SPACE DETECTED 

001217 .SCRLF :TYPE CRLF 

022425 CHRCNT ;CLEAR CHARACTER COUNT 

022230 he SET UP R2 FOR TESTING 


90$: ~(R4) sREPLACE SPACE 
177777 +=022424 #-1,BOTFLG :SET BOT FLAG 
TYPE ERROR MESSAGE STRING 
: STRING ADDRESS GOES HERE 
022424 re oy TRUNCATED?? 
;N 


001217 sYES-TYPE CRLF 
CLEAR BOT FLAG 
;CLEAR CHARACTER COUNT 
SETUP R2 FOR TESTING 
R ;SETUP 11$ FOR TYPING 
000040 sRESTORE SPACE 
( sRESTORE R2 
000677 B TYPE REST OF STRING 


022274 12$: 
; TYPE ERROR HEADER AND ERROR DATA 





UMAUAAUALAMAUALAMALAWIUAUA UU LAU UALAUWALAUILUAAMI LA ALAA WA MA MA A AAA A AA AU 
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022274 138: 
016001 000002 ;R1 POINTS TO ERROR HEADER TABLE 
;BRANCH IF NO HEADER 
001217 ; (ASSUME NO DATA) 
;R2 POINTS TO DATA ADDRESS TABLE 
3R3 POINTS TO FORMAT TABLE 
022326 : ;PUT HEADER ADDRESS FOR TYPE 
022322 001433 BRANCH IF END OF HEADERS 
; (ASSUME END OF DATA) 
022324 104401 


HEADER ADDRESS GOES HERE 
001217 


;DATA WITH HEADER?? 
-NO!! 


zR4 POINTS TO DATA ADDRESS 
:R5 POINTS TO FORMAT 
WHAT KIND OF DATA?? 
BINARY 

17$ sOCTAL 

a(R4)+,-(SP) ; DECIMAL 


19$ 
a(R4)+,-(SP) 


19$ 

a(R4)+,-(SP) 

(R4) MORE DATA?? 
-NO!! 


20$ zNO!! 
022461 eERTYO4 sYES-TYPE 2 SPACES 
8 16$ AND CONTINUE 
001217 208: , SCRLF TYPE ONE BLANK LINE 
218 BR 14$ ;BEFORE NEXT HEADER 


022414 000207 

022416 000000 1STNMB: . 
ERRNMB: 
BOTADR: . 
BOTFLG: 

022425 CHRCNT: 


022426 052111 000043 ERTYOO: . 
042524 052123 ERTYOI: . 


051105 021522 ERTYO2: . 
050040 036503 ERTYO3: . 


022461 000040 ERTYO4: . 
- EVEN 


wv 
oO 


; TEST NUMBER 

sERROR NUMBER 

:BEGINNING OF TEXT ADDRESS 
;BOT FLAG 

; CHARACTER COUNT 


goa w2x& 2» w#emB ocoOCoc°c”oe 





CZR 


022464 


0225 
022570 
022570 


022704 


"022712 


022712 
022716 
022722 


022724 
022732 
022740 


022742 
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MKA.P11 
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000240 


012737 


005777 


000002 


012737 


000002 


005037 


062766 


012637 
012637 
000207 


012777 
012777 
000403 


012777 


000300 


156764 


156736 
022570 


022646 


156644 
022654 


001526 
001510 
001510 
001516 
001516 
600002 


000006 
000004 
177777 


000135 


000100 


MACY11 


000004 
000006 


001526 


156740 


000004 
001526 
001530 
156670 


156664 
156646 


001506 
001514 
000004 


156552 
156542 


156542 


. ¢ 
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-SBTTL CLOCK SUBROUTINES 
ROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P) 


EPCS SII iti tiie iii ti iii titi i it ilitititiiiiiiiititititiriiiiy| 
SIZCLK: NOP 
ERRVEC,-(SP) 3; PUSH eee ON STACK 
ERRVEC+2,-(SP) PUSH ERRVEC+2 ON STACK 
#108, ERRVEC ;LOAD 04° TRAP VECTORS 
MOV #PR6 ,ERRVEC+2 


A KW11-P CLOCK IS PRESENT - GO TO 10$ IF NOT PRESENT 
TST @SLPCSR TEST FOR P CLOCK 
#PCLOCK,CLOCK ;LOAD SUBROUTINE ADDRESS 
#PSTOP, STOP ;LOAD STOP ADDRESS 
#PCOUNT, @SLPVEC ;LOAD P CLOCK INTERRUPT VECTOR 
#PR6, asLPvEC+2 
SLLVEC+2,@$LLVEC; CLEAR L CLOCK INTERRUPT VECTOR 
@SLLVEC+2 
30$ 
10$: #158, (SP) ;DUMMY RTI ADDRESS 
RESTORE PRIORITY 


15$: 
sNO P CLOCK-SEE IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 
MOV #208, ERRVEC ;CHANGE 04 TRAP VECTOR 
@SLLCSR sTEST FOR L CLOCK 
#LCLOCK,CLOCK ;LOAD SUBROUTINE ADDRESS 
#LSTOP,STOP ;LOAD STOP ADDRESS 
#LCOUNT, @$LLVEC ;LOAD L CLOCK INTERRUPT VECTOR 
#PR6,aSLLVEC+2 
SLPVEC+2,a@$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
aSLPVEC+2 
30$ 
208: #258, (SP) ;DUMMY RTI ADDRESS 
;RESTORE PRIORITY 


25$: 
:NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 
CLR CLOCK :CLEAR SUBROUTINE ADDRESS 
hetee SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
#SLLVEC+2,$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
SLLVEC+2 
#2,4(SP) CHANGE RETURN ADDRESS 


308: 
(SP)+, ERRVEC+2 POP STACK INTO ERRVEC+2 
el aterana 3;POP STACK INTO ERRVEC 


RTS P 
ROUTINES TO START THE CLOCK (KW11-L OR KWi1-P) 


SPUR AE AAA ARETE ARERR AERA AAT AAA AAA RARAAREAAEAKRAERARE 


PCLOCK: MOV #-1,a$LPCSB ;LOAD COUNT SET BUFFER 
MOV #135, aSLPCSR ;LOAD CONTROL REGISTER 
BR PLCLK :GO TO COMMON CODE 


LCLOCK: MOV #100, a$LLCSR ;LOAD CONTROL REGISTER 
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022750 005037 001522 
001520 
177437 
000300 
000240 
023010 
000002 


023010 000207 


023012 
062737 000021 001522 


177777 =001522 
000021 001524 


001524 
023044 000002 


023046 005077 156430 
023052 000402 


023054 005077 156432 
023060 
013746 001520 
012746 023072 
000002 


023072 000207 


023074 
023074 012760 000040 000010 
023102 111160 000010 


023106 012760 000001 000024 


CLOCK SUBROUTINES 
PLCLK: : TIME 
(SP)+,R5 


408 
#PRS,-(SP) 
#30$,-(SP) 


30$: 
40$: PC 
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CLEAR TIMER COUNT 

;;PUSH OLD PSW AND PC ON STACK 
7;SAVE THE PSW IN R5 

SAVE PRIORITY 


sMASK X 

31S PRIORITY TOO HIGH?? 
;NO!! 

7zPUT NEW PS ON STACK 


::PUT NEW PC ON STACK 
;;POP NEW PC AND PS 


ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11-L OR KW11-P) 


PCOUNT: 

LCOUNT: 
#17. , TIME 
10$ 


#-1, TIME 
108: #17. ,WATCH 
208 


WATCH 
208: 


s;ADD 17MS TO ELAPSED TIME 
sBRANCH IF NO OVERFLOW 
zRESTORE MAXIMUM COUNT 
:DECREMENT REMAINING TIME 
;BRANCH IF POSITIVE 
;CLEAR REMAINING TIME 
;RETURN TO USER 


ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P) 


PSTOP: @$SLPCSR 
B PLSTP 


LSTOP: @SLLCSR 
PLSTP: 
SPSW.-(SP) 
#10$,-(SP) 


10$: 
PC 


:STOP P CLOCK 
:GO TO COMMON STOP CODE 


:STOP L CLOCK 
:;PUT NEW PS ON STACK 


7;PUT NEW PC ON STACK 
7;POP NEW PC AND PS 


-SBTTL SET VOLUME VALID SUBROUTINE 


THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID, 
sRETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE. THE SUBROUTINE 
RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS 


SCALL: PC, SETVV 
B 27 


#CLR,RMCS2(RO) 
(R1),RMCS2(RO) 


#DMD ,RMAR1 (RO) 


=> + sa IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


;CLEAR THE MASSBUS 
SELECT UNIT 


LOAD RMMR1 


SEQ 0110 
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023114 
023122 
023130 
023136 
023144 


023222 


023224 
023224 
023232 
023240 
023246 
023254 


023324 


023326 


012760 
012760 
012760 
012760 
016037 


000207 


012760 
012760 
012760 
012760 
016037 


112776 
000207 


001001 
000000 
000000 
000023 


000012 
177677 


001136 


000022 


001001 
000000 
000000 
000015 


000012 
177776 


000001 


000111 
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000024 
000014 
000042 
000000 
001142 
001142 
001136 
001140 


000000 
001174 


000024 
000014 
000042 
000000 


001142 
001142 


001140 
001136 
000000 


SET VOLUME VALID SUBROUTINE 


MOV #DMD! MUR, RMMR1 (RO) ;LOAD RMMR1 
#0, RMER1(RO) ;LOAD RMER1 
#0, RMER2(RO) ;LOAD RMER2 
#PACACK!GO,RMCS1(RO) ;LOAD RMCS1 
RMDS(RO),SBDDAT ;STORE RMDS AT SBDDAT 
# CVV,SBDDAT 
10$ BRANCH IF VOLUME VALID SET 
RO, SBDADR ;SETUP FOR ERROR MSG 
#RADS , SBDADR 


;MOVE RETURN ADDRESS TO ERROR 
sWRITE ERROR NUMBER 
#PACACK, STMPO 


108: PC ; RETURN 
-SBTTL SET OFFSET MODE SUBROUTINE 


THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
sMODE SETS. THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
; SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


CALL: PC,SETOM JUMP TO SUBROUTINE 
; ?? RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


#DMD!MUR,RMMR1 (RO) ;LOAD RMMR1 
#0,RMER1(RO) ;LOAD RMER1 

#0, RMER2(RO) ;LOAD RMER2 
#OFFSET!GO,RMCS1(RO) ;LOAD RMCS1 
RMDS(RO), a STORE RMDS AT SBDDAT 
# COM, $BDDAT 

10$ ;BRANCH IF OFFSET ON 
#0M,SGDDAT 

RO, $BDADR 


#RMDS , SBDADR 
#2, (SP) ;MOVE RETURN ADDRESS TO ERROR 
#111,a(SP) ;WRITE ERROR NUMBER 


10$: 
RTS PC ;RETURN TO USER 
-SBTTL ENABLE SEARCH SUBROUTINE 


SPUR AAA AAA RARER AAA EE AERA AAA AAA RERARAREA EAA KEE REE 


ENBSCH: 


SEQ 0111 
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; THE REGISTER OUTPUT BUFFER SHOULD CONTAIN: 
: RMDAQ = DESIRED SECTOR AND TRACK ADDRESS 
: RADCO DESIRED CYLINDER ADDRESS 
3 RMOFO FORMAT, ECI, H 
; RMBAO 


BUFFER ADDRESS 
RMWCO WORD COUNT 
RMCS10 FUNCTION CODE 


NOTE: OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE 


FF RARER EAA EERE REAR A AEE EKEKKEREKEEE 
SET VOLUME VALID 
sFIRST,CLEAR -SET DIAGNOSTIC MODE-SYNCHRONIZE 
PROM SiROBE 
023326 012760 000040 000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
023334 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 
023340 012760 000001 000024 #OMD,RMAMR1(RO) ;LOAD RMMR1 
023346 012704 000041 #33. ,R4 ALLOW UP TO 33 BIT CLOCLS 
:TO SYNC PROM STROBE 
023352 
023352 012760 005001 000024 #DMD!MUR!MCLK,RMMR1(RO) ;LOAD RMMR1 
023360 012760 001001 000024 #0MD! MUR, RMMR1 (RO) ;LOAD RMMR1 


023366 016005 000024 RMMR1(RO),R5 STORE RMMR1 AT R5 
000040 -* les ;WAIT FOR PROM STROBE TO COME ON 


R4 


5$ 
001136 RO, $BDADR PROM STROBE WONT SET 
001136 a 


001140 
#2, (SP) 
000000 #30,a(SP) 
000137 024204 60$ ;REPROT ERROR 
023446 
023446 012760 005001 000024 #OMD!MUR!MCLK,RMMR1(RO) ;LOAD RMMR1 
023454 012760 001001 000024 #DMD!MUR,RMMR1 (RO) ;LOAD RMMR1 


023462 016005 00002¢ RMMR1(RO),R5S STORE RMMR1 AT R5 
000040 #WC RS WAIT FOR PROM STROBE TO GO OFF 


6$ 
001136 RO,SBDADR ;PROM STROBE WONT RESET 
001136 #RMMR1,SBDADR ; 
001142 #WC , SBDDAT 
SGDDAT 
023524 062716 000002 #2, (SP) 
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023530 
023536 
023542 


023542 
023550 


023556 
023564 
023572 
023600 


023660 


023660 
023666 
023674 
023702 
023710 


023716 
023724 
023732 
023740 
023746 


023754 
023760 
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112776 000062 
000137 024204 


012760 
012760 


001005 
001001 


012760 000000 
012760 000000 
012760 000023 


016037 000012 
177677 


001136 
000012 
000100 
000002 
000100 


000022 
000552 


013760 001410 
013760 001436 
013760 001434 
013760 001404 
013760 001406 


012760 041401 
072760 000009 
012760 000000 
013760 001402 


012737 000310 
004777 155546 


MACY11 30A(1052) 


000000 


000024 
000024 


000014 
000042 
000000 
001142 
001142 
001136 
001140 


000000 
001174 


000006 
000034 
000032 
000002 
000004 


000024 
000014 
000042 
000000 


001524 
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ENABLE SEARCH SUBROUTINE 


MOVB #62 ,a(SP) 
JMP 608 


7$: 
;SECOND, CLOCK INDEX PULSE TO 1. CLEAR FORMAT CHANGE FLOP 
; 2. CLEAR RTC FLOP 


#DMD!MUR!MI,RMMRI1(RO) ;LOAD RMMR1 
#0MD! MUR, RMMR1 (RO) ;LOAD RMMR1 


#0, RMER1(RO) LOAD RMER1 
#0, RMER2(RO) ;LOAD RMER2 
#PACACK!GO,RMCS1(RO) ;LOAD RMCS1 


RMDS(RO),SBDDAT ;STORE RMDS AT S$BDDAT 
Fg awe ; VOLUME VALID SHOULD BE SET 


RO, SBDADR ;SETUP ERROR MSG 
#RADS,SBDADR 


sWRITE ERROR NUMBER 


#100,a(SP) 
#PACACK ,STMPO 
60$ 


108: 
POP e Tt tiie iii rit iil iii iit iit ii rir itiitiititiiiiiiiiiiii iis) 

[LOAD REGISTERS 
MOV RMDAO,,RMDA(RO) 
MOV RMDCO,RMDC (RO) 
MOV RMOFO,RMOF(RO) ;LOAD RMOF 
MOV RMWCO,RMWC(RO) ;LOAD RMWC 
MOV RMBAO,RMBA(RO) ;LOAD RMBA 

PECTIC TT Tir it iti e ital i titi st iticiiiiititiititiiiii titi i iii iit) 

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE 
MOV #O0MD!MUR!DBEN! MOC ,RMMR1 (RO) 
MOV #0, RMER1(RO) ;LOAD RMER1 
MOV #0, RMER2(RO) LOAD RMER2 


MOV RMCS10,RMCS1(RO) ;LOAD RMCS1 
PETIT ISIS Til i ri ite titi titi ititiriiiirittitiliititiiiititii itty 
;WAIT FOR ‘’RUN AND GO"' TO SET 

MOV #200. ,WATCH 


JSR PC,acLOCk 


;LOAD RMDA 
LOAD RMDC 


LOAD RMMR1 


SET WATCHDOG TIMER VALUE 
208 START THE CLOCK 


SEQ 0113 
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023760 016037 000024 RMMR1(RO) ,SBDDAT ;STCRE RMMR1 AT SBDDAT 
137777 J crmpaees 


001524 WATCH sANY TIME LEFT? 
208 :YES-WAIT 
155520 PC,aSTOP sSTOP THE CLOCK 
001140 #RG,SGDDAT ;SETUP ERROR MSG 
RO, SBDADR 
001136 #RMMAR1, SBDADR 
#2, (SP) ;WRITE ERROR NUMBER IN 
024034 112776 000101 000000 #101,a(SP) USER'S CALL - 


024042 000460 60$ 
024044 308: 
024044 004777 155460 PC,aSTOP ;STOP THE CLOCK 
ITIIITITISITII ITIL TTL LILLE T TELL 
STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS) 
Socata 012704 000021 - MOV #17. ,R4 zR4=CLOCK COUNT 


024054 012760 141401 000024 #DMD! MUR! DBEN! MOC! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


024062 012760 041401 000024 #0MD! MUR! DBEN! MOC ,RMMR1(RO) LOAD RMMR1 
024070 005304 R4 
024072 001370 40$ 


SFR E AAA AAA A ARATE 


:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER TO PASS 


TEST AT LOCATION 166 


024074 012760 041001 000024 MOV #DMD!MUR!DBEN,RAMR1(RO) ;LOAD RMMR1 
024102 012760 041401 000024 MOV #DMD!MUR!DBEN! MOC ,RMMR1 (RO) LOAD RMMR1 


RTI IT IT itil ii itis ii ri titittititititititititiiiiitiiiititititiiy) 
STEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH IS ENABLED 
bb 012704 000043 oe MOV #35.,R4 3R4=CLOCK COUNT 


024114 012760 151401 000024 #D0MD! MUR! DBEN! MOC! DBCK!DTO,RMMR1(RO) LOAD RMMR1 


024122 012760 051401 000024 #D0MD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
024130 005304 R4 
024132 001370 50$ 


024134 016037 000024 001142 RMMR1(RO) ,SBDDAT ;STORE RMMR1 AT SBDDAT 
173777 =001142 # CESRC,$BDDAT ;SEARCH SHOULD BE ENABLED 


60$ 
001136é RO, SBDADR SETUP ERROR MESSAGE 
001136 #RMAR1,SBDADR 
001140 #ESRC,SGDDAT 
#2, (SP) WRITE ERROR NUMBER 
112776 000102 000000 #102,a(SP) 
024204 608: 
OTT TIT Sil iliriiititiviriiiiitiriiiiiriiiiiriiitiiitititititi ty 
:RETURN TO USER 
024204 000207 RTS PC 
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024206 


024206 
024214 
024222 


024242 


024246 
024254 


024262 
024270 
024276 
024504 


024312 


024314 
024314 
024314 
024322 
024330 


012760 
012760 
012737 


004777 


012760 
012760 


012760 
012760 
012760 
012760 


000207 


012760 
012760 
016005 


051405 
051401 
000006 
155272 
001524 


155262 


051441 
051401 


051403 
051443 
051403 
051401 


055401 
051401 
000024 


ee. 
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000024 
000024 
001524 


000024 
000024 


000024 
000024 
000024 
000024 


000024 
000024 


SECTOR COMPARE SUBROUTINE 
-SBTTL SECTOR COMPARE SUBROUTINE 
SECTOR COMPARE SUBROUTINE 


THIS SUBROUTINE CONTINUES THE EXECUTION OF A DATA COMMAND 
at SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE 


SCTCMP: 


FRR AAA AAE AERA AERA ETAT RETA EAE KERR AARERARARAERARAAEAAREe 


SET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP 
MOV #DMD!MUR!DBEN! MOC!DTO!MI,.RMMR1(RO) ;LOAD RMMR1 


MOV #DMD!MUR'DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
;WAIT AT LEAST 4 MS FOR RETURN TO CENTER LINE’ ONE SHOT TO SET 
MO #6,WATCH SET WATCHDOG TIMER VALUE 
PC, acLOck :START THE CLOCK 
WATCH 
10$ 
PC,a@STOP ;STOP THE CLOCK 
ST eae TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO 


MOV #D0MD! MUR! DBEN! MOC !DTO!MS ,RMMR1 (RO) ;LOAD RMMR1 


MOV #OMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
;WITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP 


MOV #DMD! MUR! DBEN! MOC! DTO! MSC ,,RMMR1(RO) LOAD RMMR1 
MOV #DMD!MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD!MUR!DBEN! MOC! DTO! MSC ,RMMR1 (RO) LOAD RMMR1 
MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
PLRRARAAA AAA ATA AAA A AAA AAA AAA A AAA AA ATA TAA A AAA eee AAA eA Kee eee eee 
RETURN TO USER 
RTS PC 
PIUAARAAAAAA AAA A TATA AAA AAA TAA TATA AAA AAA eee AAA AeA AeA eee AAA 
-SBTTL SET LOOKING FOR SYNC SUBROUTINE 
THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER 
ASSUMING SEARCH IS ENABLED,TO THE POINT WHERE ‘‘PLFS*' IS ACTIVE 
SETLFS: 
* rig BIT CLOCK UNTIL PROM STROBE SETS 
MOV #D0MD!MUR!DBEN!MOC!DTO!MCLK,RMMR1 (RO) LOAD RMMR1 
MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


MOV RMMR1(RO) RS STORE RMMR1 AT RS 


SEQ 0115 
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024334 032705 000040 BIT #WC,R5 
024340 001765 BEQ 10$ 

SET UP DATA SEQUENCER TO LOCATION 11. WHERE PLFS WILL SET 
024342 012704 000260 MOV #176. ,R4 MAX NUMBER OF BIT CLOCK 
024346 208: 
024346 012760 055401 000024 #OMD! MUR! DBEN!MOC!DITO!MCLK,RMMR1 (RO) ;LOAD RMMR1 
024354 012760 051401 000024 #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


016005 000024 RMMAR1(RO) RS STORE RMMR1 AT RS 
002000 es EXIT IF PLFS IS SET 


sERROR IF COUNT EXHAUSTED 


R4 

208 
000002 #2, (SP) ; 
000035 000000 - | ati :CANT SET PLFS 


000430 
024414 30$: 
7STEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE 
: IS DETECTED. 


024414 016005 000024 RMMAR1(RO) RS STORE RMMR1 AT RS 
024420 032705 000040 #WwC,R5S 
024424 001007 40$ 


024426 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


024434 012760 051401 000024 #MR1AAA,RMAMR1 (RO) ;LOAD RMMR1 
aieeae 000414 50$ 


024444 016005 000024 RMMR1(RO) RS STORE RMMR1 AT RS 
024450 032705 000040 #WC,R5 
024454 001407 50$ 


024456 012760 055401 000024 #MRIAAA!MCLK,RMMRI(RO) ;LOAD RMMR1 

024464 012760 051401 000024 #MR1AAA,RAMR1 (RO) LOAD RMMR1 

024472 000764 408 

024474 50$: 

024474 000207 PC sEXIT 
-SBTTL CLOCK SYNC SUBROUTINE 


PORTS ISIS ITIL iti tit itititi titi titi titititititititititititi titi ity 


THIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC 
;PATTERN BEING READ 


024476 CLKSNC: 
VERIFY THAT “'PLFS'’ IS ON 


024476 016004 000024 MOV RMMR1(RO) ,R4 STORE RMMR1 AT R4 
024502 032704 002000 BIT #PLFS,R4 LOOK FOR SYN SET ? 
024506 001023 BNE 10$ BRANCH IF SO 
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024510 001142 R4,SBDDAT 
001142 # CPLFS,SBDDAT 
001140 #PLFS,SGDDAT 
RO, $BDAOR 
001136 #RAAR1,SBDADR 
#2, (SP) 
000035 000000 tien 


B . 
000021 #17. ,R5 MAKE SURE PROM STROBE IS OFF 
000040 #WC,R4 
001434 30$ 


024570 012760 055401 000024 #MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
024576 012760 051401 000024 #AR1AAA,RMMR1 (RO) ;LOAD RMMR1 


024604 016004 000024 RMMR1 (RO) ,R4 STORE RMMR1 AT R4 
024610 005305 R5 


024612 001363 
; ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE 
024614 010437 001142 001142 ' SETUP ERROR FOR USER 


0,$80 
001136 #RAAR1,$BDADR 
2, (SP) 


#2, ‘ 
000062 000000 #62,a(SP) 
000425 60$ 
024660 


024660 012704 014400 
000020 024734 #16.,708 STROBE BIT COUNT 
055401 40$: WMRIAAA!MCLK,RS ;GENERATE REG VALUE 
; - WITH MAINTENANCE CLOCK ON 
if3002 


b 50$ 
024704 052705 002000 #MRD,RS ;SET READ BIT PER PATTERN BIT 


024710 


024710 010560 000024 R5,RMMR1(RO) ;LOAD RMMR1 
024714 042705 004000 #MCLA RS CLOCK ONE BIT 


024720 010560 000024 R5,RMMAR1(RO) ;LOAD RMMR1 
024724 005337 024734 70$ 
024730 001360 


30$: 
;CLOCK THE SYNC PATTERN (00011001) THROUGH THE SHIFT REGISTER 
MOV #014400,R4 


Cd 


BNE 40$ 
:CAN'T VERIFY SYNC CLOCK WAS DETECTED 
USER CAN DO SO BY STEPING 
3BI1T CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME 
024732 000207 60$: RTS PC 
024734 000000 70$: -WORD 0 ; TEMPORARY STORAGE 
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010046 


000022 
000002 . 
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000022 


000002 
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SAVE AND RESTORE RO-R5 ROUTINES 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


PF RRR AAA A AERA EAE AAA E AAA AERA AE RAAAAARAARAATEAAAREAAEE 


*SAVE RO-R5 
7*CALL: 

;* 
it 

3 *TOP---(+16) 
pt +2---(+18) 
pt +4---R5 

pt +6---R4 

3* +8---R3 
3*+10---R2 

3 t+12---R1 
r#+14---R0 


SSAVREG: 


s*RESTORE RO-R5 
; Aiz 


> *CALL 
ed RESREG 
ae 


RO,-(SP) 


R5,-(SP) 

22(SP),-(SP) 
22(SP) ,-(SP) 
22(SP),-(SP) 
22(SP) ,-(SP) 


(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


7 sRESTORE PC 
7 sRESTORE PS 
:sRESTORE PC 
; RESTORE PS 
33;POP STACK 
3:POP STACK 
3:POP STACK 
:3;POP STACK 
3;POP STACK 
33;POP STA‘K 


RTI 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


SAVREG 
*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
MAIN FLOW 
MAIN FLOW 
CALL 

CALL 


OF CALL 

OF CALL 

OF MAIN FLOW 
OF MAIN FLOW 
INTO R5 

INTO R4 

INTO R3 

INTO R2 

INTO R1 

INTO RO 


FF RAAAAAAAAA AAA EAA AEA AEE AAA ARE AAAAA AA EAARARAAARAAAARAERAAREAAEEE 


s*THIS ROUTINE IS USED TO CHANGE A 16-BIT 3INARY NUMBER TO A 16-BIT 
;*BINARY~ASCII NUMBER AND TYPE IT. 


s*CALL: 
3* MOV 
st TYPBN 


STYPBN: MOV 
MOV 


NUMBER ,-(SP) 


R1,-(SP) 
6(SP),R1 


;;SAVE R1 ON 


;;NUMBER TO BE TYPED 
;TYPE IT 


THE STACK 


::GET THE INPUT NUMBER 


SEQ 0118 
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025040 000261 S ;SET “"C’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
000060 025104 1$: #'0,$BIN TISET CHARACTER TO AN ASCII *'0"'. 
R1 23GET THIS BIT 
025104 INO <SET THE CHARACTER EQUAL TO THIS BIT 
025104 3:G0 TYPE THIS BIT 
33CLEAR ‘'C’’ SO CAN KEEP TRACK OF BITS 
$ :;GO DO THE NEXT BIT 
28: (SP)+,R1 ;:POP THE STACK INTO R1 
000062 000004 2(SP),4(SP) :; ADJUST THE STACK 


(SP)+, (SP) 
R + RETURN TO USER 
025104 000 000 $BIN -BYTE 0,0 STORAGE FOR ASCII CHAR. AND TERMINATOR 
“SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


PUMA AAA RARE AAA AAAH AAA AAAAEAATAAAAAA TATA AeA eee eAeteeeeeeeeeeeee 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
> *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 

3*CALL: 

7* MOV NUM ,- (SP) 3;PUT THE BINARY NUMBER ON THE STACK 
s@ POS 3:G0 TO THE ROUTINE 


025106 STYPDS: 
010046 RO,-(SP) 3:PUSH RO ON STACK 
:zPUSH R1 ON STACK 
3:PUSH R2 ON STACK 
3:PUSH R3 ON STACK 
7;PUSH RS ON STACK 
020200 #20200, -(SP) 7:;SET BLANK SWITCH AND SIGN 
000020 20(SP) .RS 3:GET THE INPUT NUMBER 
1$ 7;BR IF INPUT IS POS. 
R5 7;MAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1(SP) 3:MAKE THE ASCII NUMBER NEG. 
1$: RO 32:ZERO THE CONSTANTS INDEX 
025322 #SDBLK,R3 7: SETUP THE OUTPUT POINTER 
000040 #' ,(R3)+ :3SeT THE FIRST ean pe TO A BLANK 


: R2 
025312 SDTBL(RO) ,R1 
R1,R5 


::FORM THIS BCD DIGIT 
::BR IF DONE 
:: INCREASE THE BCD DIGIT BY 1 


7:AD0 BACK THE CONSTANT 
::CHECK IF BCD DIGIT=0 
:;FALL THROUGH IF 0 
esStith DOING LEADING 0'S? 
z IF YES 
MSD? 
6$ > IBR IF NO 

000001 177777 Sei 7: YES--SET THE SIGN 

000060 : #'0,R2 7:MAKE THE BCD DIGIT ASCII 

000040 : #" ,R2 77MAKE IT A SPACE IF NOT ALREADY A DIGIT 
025226 110223 R2, (R3)+ 7;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
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025230 005720 (RO)+ 77 JUST INCREMENTING 
000010 RO,#10 3;CHECK THE TABLE INDEX 
23 3:G0 DO THE NEXT DIGIT 
cb} 3:G0 TO EXIT 
R5,R2 :;GET THE LSD 
6$ 3:GO CHANGE TO ASCII 
(SP)+ 2s WAS THE LSD THE FIRST NON-ZERO? 
9$ ;BR IF NO 
177777 177776 -1(SP),-2(R3) 3 3YES=-SET THE SIGN FOR TYPING 
9 (R3) T THE TERMINATOR 
(SP)+,R5 ‘5 STACK INTO R5 
(SP)+,R3 ;;POP STACK INTO R3 
(SP)+,R2 ;;POP STACK INTO R2 
(SP)+,R1 ;:;POP STACK INTO R1 
(SP)+,RO $s STACK INTO RO 
025322 , SOBLK sNOW TYPE THE NUMBER 
000002 000004 2(SP),4(SP) : ADJUST THE STACK 


(SP)+, (SP) 
; RETURN TO USER 
SDTBL: 


025322 000004 SDBLK: .BLKW 4 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FUERA AAAAAAAAEAAAATEAAAEAAE AETHER E TERETE ATK ERARARAARREREAREEE 
* STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 
i #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** 3 
$e MOV NUM, -(SP) 7 :NUMBER TO BE TYPED 
Shed TYPOS 7;CALL FOR TYPEOUT 
;* -BYTE N 3:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE & 77:M=1 OR O 
;* 721=TYPE LEADING ZEROS 
;* 7;0=SUPPRESS LEADING ZEROS 
*® 


;*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*STYPOS OR S$TYPOC 

;*CALL: 

7* MOV NUM, -(SP) NUMBER TO BE TYPED 

;* TYPON ::CALL FOR TYPEOUT 


-* 
So ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM, -(SP) > NUMBER TO BE TYPED 
:;CALL FOR TYPEQUT 


025332 017646 000000 : a(SP),-(SP) ::PICKUP THE MODE 
000001 025555 1(SP),SOFILL :;LOAD ZERO FILL SWITCH 
025557 (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 : ns Fd a ;;ADJUST RETURN ADDRESS 
000001 025555 $TYPOC: #1,S0OFILL ::SET THE ZERO FILL SWITCH 
025364 112737 000006 025557 mM #6, SOMODE +1 :;SET FOR SIX(6) DIGITS 


en 
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025372 112737 000005 025554 $TYPON: MOVB #5,S0CNT ::SET THE ITERATION COUNT 
- ae 


73SAVE R5 
025557 SOnODE +1, oR4 3;GET THE NUMBER OF DIGITS TO TYPE 


000006 #6,R4 3:SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE 7:SAVE IT FOR USE 
SOFILL,R4 7;GET THE ZERO FILL SWITCH 
000012 12(SP),R5 :;PICKUP THE INPUT NUMBER 
R3 ;;CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO ‘'C’’ 
::G0 DO MSB 
::FORM THIS DIGIT 


in rh fh 


: R 3:GET LSB OF THIS DIGIT 
025556 23 TYPE — DIGIT? 
7$ 7BR IF N 
177770 é GET - “oF JUNK 
4$ 7: TEST FOR O 
3;SUPPRESS THIS 0? 
3:;BR IF YES 
: 7:DON'T SUPPRESS ANYMORE 0'S 
000060 . 7:MAKE THIS DIGIT ASCII 
000040 ‘ 5$: a 3:MAKE ASCII IF NOT ALREADY 
025552 > : 3; SAVE FOR TYPING 
025552 8 3:GO0 TYPE THIS DIGIT 
025554 : 7:;COUNT BY 1 
2 7:BR IF MORE TO DO 
3:BR IF DONE 
3; INSURE LAST DIGIT ISN'T A BLANK 
3:60 DO THE LAST DIGIT 
7 ;RESTORE RS 
7 RESTORE R4 
s RESTORE R3 
000002 000004 e(SP), *4(SP) 37SET THE STACK FOR RETURNING 
(SP)+, (SP) 
7 RETURN 


8$: . ::STORAGE FOR ASCII DIGIT 
:; TERMINATOR FOR TYPE ROUTINE 
SOCNT: . ;;OCTAL DIGIT COUNTER 
0 SOFILL: . :2ZERO FILL SWITCH 
025556 000000 SOMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 
-SBTTL TYPE ROUTINE 


n~ fh 


POE CI PIII ISI i irri it iii itiiiitiiriiiiiiy 
:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
seTNe ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
* #NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
7 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 


3* 


s*CALL: 
3*1) USING A TRAP INSTRUCTION 
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CZRMKA.P11 05-APR-78 14:38 TYPE ROUTINE 
6047 8 TYPE ,MESADR z;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 6 
6048 7*OR 6 
6049 8 TYPE 6 
6050 ;* MESADR 6 
6051 :* 6 
6052 6 
6053 025560 105737 001173 $TYPE: TSTB STPFLG i318 THERE A TERMINAL? 6 
6054 025564 100002 BPL 1$ 3:BR IF YES 6 
6055 025566 000000 HALT ;;HALT HERE IF NO TERMINAL 6 
6056 025570 000430 BR 3$ 7 LEAVE 6 
6057 025572 010046 1$ MOV RO,-(SP) 7 SAVE RO 6 
6058 025574 017600 000002 MOV a2(SP),RO 7:GET ADDRESS OF ASCIZ STRING 6 
6059 025600 122737 000001 001242 CMPB #APTENV,SENV ; ; RUNNING IN APT MODE 6 
6060 025606 001011 BNE 62$ 7NO,GO CHECK FOR APT CONSOLE 6 
6061 025610 132737 000100 001243 BITB #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 6 
6062 025616 001405 BEQ 628 3:NO,GO CHECK FOR CONSOLE 6 
6063 025620 010037 025630 MOV RO,61$ 7; SETUP MESSAGE ADDRESS FOR APT 6 
6064 025624 004737 030456 JSR PC,SATY3 7;SPOOL MESSAGE TO APT 6 
6065 025630 000000 61$: -wORD 0 7 MESSAGE ADDRESS 6 
6066 025632 132737 000040 001243 62%: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 6 
6067 025640 001003 BNE 60$ :YES,SKIP TYPE OUT 6 
6068 025642 112046 2$: MOVB (RO)+,-(SP) 3;PUSH CHARACTER TO BE TYPED ONTO STACK 6 
6069 025644 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 6 
6070 025646 005726 TST (SP)+ 7:1 TERMINATOR POP IT OFF THE STACK 6 
6071 025650 012600 608: MOV (SP)+,RO : RESTORE RO 6 
6072 025652 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC é 
6073 025656 000002 RTI TURN 6 
6074 025660 122716 000011 4$: CMPB #HT, (SP) ::BRANCH IF <HT> 6 
6075 025664 001430 BEQ 8$ 6 
6076 025666 122716 000200 CMPB #CRLF (SP) ::BRANCH IF NOT <CRLF> 6 
6077 025672 001006 BNE 5$ 6 
6078 025674 005726 TST (SP)+ POP <CR><LF> EQUIV é 
6079 025676 104401 TYPE 7; TYPE A CR AND LF 6 
6080 025700 001217 SCRLF é 
6081 025702 105037 026036 CLRB SCHARCNT :CLEAR CHARACTER COUNT é 
6082 025706 000755 BR 2s ::GET NEXT CHARACTER é 
6083 025710 004737 025772 5$: JSR PC, STYPEC ::GO0 TYPE THIS CHARACTER 6 
6084 025714 123726 001172 6$: CMPB SFILLC,(SP)+ ::1S IT TIME FOR FILLER CHARS.? 6 
6085 025720 001350 BNE 23 3:]F NO GO GET NEXT CHAR. 6 
6086 025722 013746 001170 MOV SNULL ,-(SP) 7:GET # OF FILLER CHARS. NEEDED 6 
6087 > AND THE NULL CHAR. 6 
6088 025726 105366 000001 7$: DECB 1(SP) :;DOES A NULL NEED TO BE TYPED? 6 
6089 025732 002770 BLT 6$ :;BR IF NO--GO POP THE NULL OFF OF STACK 6 
6090 025734 004737 025772 JSR PC ,STYPEC ::G0 TYPE A NULL 6 
6091 025740 105337 026036 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 6 
sone 025744 000770 BR 7$ 3 LOOP 
ee sHORIZONTAL TAB PROCESSOR 
6096 025746 112716 000040 8$: MOVB #' (SP) 7 REPLACE TAB WITH SPACE 
6097 025752 004737 025772 9$: JSR PC, STYPEC :; TYPE A SPACE 
6098 025756 132737 000007 026036 BITB #7, SCHARCNT BRANCH IF NOT AT 
6099 025764 001372 BNE 9$ 7; TAB STOP 
6100 025766 005726 TST (SP)+ :;POP SPACE OFF STACK 
6101 025770 000724 RE 23 ::GET NEXT CHARACTER 
6102 025772 105777 153166 STYPEC: TSTB asTPs :;WAIT UNTIL PRINTER IS READY 
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025776 


026040 


026042 
026042 
026044 
026052 
026054 


026056 


026162 


100375 


000207 


104410 
032777 
001131 
000416 


013746 


000440 
032777 


005726 
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000002 
000015 


026036 
000012 


040000 


000004 


000004 


000004 


000400 


153024 
000024 
001116 


026354 
001122 
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153160 
000002 


000002 


153102 


000004 


153034 


TYPE ROUTINE 
BPL STYPEC 


MOVB 2(SP) ,aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB #CR,2(SP) 3:18 CHARACTER A CARRIAGE RETURN? 
BNE 1$ ;;BRANCH IF NO 
CLRB SCHARCNT :YES@-CLEAR CHARACTER COUNT 
BR STYPEX T 
1$: CMPB #LF ,2(SP) ::1$ CHARACTER A LINE FEED? 


BEQ STYPEX ;;BRANCH IF YES 

INCB (PC)+ ;:COUNT THE CHARACTER 
SCHARCNT:.WORD 0 ;; CHARACTER COUNT STORAGE 
STYPEX: RTS PC 


-SBTTL SCOPE HANDLER ROUTINE 


PUMA RaeeAAH AAA AAA AAAAERAAA AEA AAHT AAA eee AAA eee eee eeeeeeeeeenee 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


7*$W14=1 LOOP ON TEST 
7*SW11=1 INHIBIT ITERATIONS 
7*Sw09=1 LOOP ON ERROR 
3 *Sw08=1 LOOP ON TEST IN SWR<7:0> 
3*CALL 
;* SCOPE 7; SCOPE=I0T 
SSCOPE: 
CKSWR 7:TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSwR + LOOP ON PRESENT TEST? 


BNE SOVER YES IF SwW14=1 
;WHAHASTART OF CODE FOR THE XOR TESTERS#### 
SXTSTR: BR 6$ 33 1F RUNNING ON THE ‘’XOR'’ TESTER CHANGE 
::THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV @#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$,a#ERRVEC 7:SET FOR TIMEOUT 
TST a#177060 :;TIME OUT ON XOR? 
MOV (SP)+,@MERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD 3:GO TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ 7;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+, @#ERRVEC 2 sRESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
nome a OF CODE FOR THE XOR TESTER###M# 


#B1T08,aSwR ; ;LOOP 7 SPEC. TEST? 
BEQ 2$ ::BR IF N 
CLR -(SP) :; CLEAR y TEMP. LOCATION 
MOVB aSwR, (SP) ;;PICKUP THE DESIRED TEST NUMBER 
BEQ 8$ ;;BRANCH IF BAD TEST NUMBER - SWR 
CMP #24, (SP) sores THE NUMBER IN THE SWR 
BLT 8$ ;BRANCH IF TEST NUMBER IS OUT OF RANGE 
MOV (SP), STSTNM ;UPDATE THE TEST NUMBER 
DEC (SP) : BACKUP BY ONE 
ASL (SP) SCALE THE TEST NUMBER AS AN INDEX 


ADD #SSWO8TBL,(SP) :;:FORM THE ADDRESS OF TEST POINTER 
MOV @(SP)+,$LPADR ;;SET LOOP ADDRESS TO DESIRED TEST 
BR SOVER ::G0 LOOP ON THE TEST 
8$: TST (SP)+ ;:CLEAN THE BAD TEST NUMBER OFF OF THE STACK 


SEQ 0123 
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026422 


105737 


020170 


001117 
001131 
001000 
001124 


001117 
001266 


004000 
001230 


001120 
001206 


001122 
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001117 
152744 
001122 


152712 


001120 


001120 
001206 


001226 


001131 
152612 


23: 


1$: 
M0 
SSVLAD: 
4 


SOVER: 


SMXCNT: 


SSWOS8TBL: 


- SBTTL 
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SERFLG 

34 

——— 
#B1T09,aSwR 
48 
SLPERR,SiLPADR 
SOVER 

SERFLG 

STIMES 

1$ 
#B1T11,aSwR 
1$ 

SPASS 

1$ 

SICNT 
STIMES,SICNT 
SOVER 
#1,S1CNT 
SMXCNT,STIMES 
STSTNA 


STSTNM,STESTN 
(SP), SLPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMAX 


STSTNM,@DIiSPLAY 


SLPADR, (SP) 


TST1#2 
TST2+2 
TST3+¢2 
TST4+2 
TST5+#2 
TST64#2 
TST7+#2 
TST10+#2 
TST11+#2 
TST12+2 
TST1342 
TST1442 
TST15¢2 
TST16#2 
TST17+#2 
TST20+2 
TST21+2 
TST22+2 
TST23+2 


-WORD TST24+2 
ERROR HANDLER ROUTINE 
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a nF paces OCCURRED? 
N 
33 MAX. ERRORS FOR THIS TEST OCCURRED? 


7:BR IF NO 
: LOOP ON ERROR? 
I 


F NO 
7:SET LOOP ADDRESS TO LAST SCOPE 


3:ZERO THE ERROR FLAG 
3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
s ESCAPE TO THE NEXT TEST 
3s: INHIBIT ITERATIONS? 
3:BR IF YES 
+ hd FIRST PASS OF PROGRAM 
; INHIBIT ITERATIONS 

> INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
3:BR IF MORE ITERATION REQUIRED 
sREINITIALIZE THE ITERATION COUNTER 
3:SET NUMBER OF ITERATIONS TO DO 
7: COUNT TEST NUMBERS 
3:SET TEST NUMBER IN APT MAILBOX 
7:SAVE SCOPE LOOP ADDRESS 
3;SAVE ERROR LOOP ADDRESS 
7:CLEAR THE ESCAPE FROM ERROR ADDRESS 
7;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
;:DISPLAY TEST NUMBER 
3:FUDGE RETURN ADDRESS 
sc: FIXES PS 
3:MAX. NUMBER OF ITERATIONS 


3: STARTING ADDRESS 1 
:;STARTING ADDRESS 2 
3 :STARTING ADDRESS 3 
7: STARTING ADDRESS 4 
STARTING ADDRESS 5 
: STARTING ADDRESS 6 
7: STARTING ADDRESS 7? 
z:STARTING ADDRESS 1 
32STARTING ADDRESS 1 
7: STARTING ADDRESS 1 
:: STARTING ADDRESS 1 
72STARTING ADDRESS 1 
7:STARTING ADDRESS 1 
z: STARTING ADDRESS 1 
z:STARTING ADDRESS 1 
7: STARTING ADDRESS 2 
7: STARTING ADDRESS 2 
:: STARTING ADDRESS 2 
i: STARTING ADDRESS 2 
z: STARTING ADDRESS OF 24 


Wr] SNAUFSWN—O 


EPSP PSII C Sirti r iii iii iri iii iii ii iii iii titi itiiiiiiiii titty 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


SEQ 0124 


L AAAABAAH 


AABABAAAOH 
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;*AND GO TO ERRTYP ON ERROR 

3*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW15=1 HALT ON ERROR 

3*SW13=1 INHIBIT ERROR TYPEOUTS 

3*SW10=1 BELL ON ERROR 

3 *SWO09=1 LOOP ON ERROR 

> *CALL 

s* N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


026424 SERROR: 
104410 3: TEST FOR CHANGE IN SOFT-SWR 
001117 7$: SERFLG :3SET THE ERROR FLAG 
7$ ;DON'T LET THE FLAG GO TO ZERO 
001116 152514 STSTNM,@DISPLAY :;:DISPLAY TEST NUMBER AND ERROR FLAG 
002000 152504 #B81T10,aSwR 7;BELL ON ERROR? 
7:NO - SKIP 
001212 7:RING BELL 
:;COUNT THE NUMBER OF ERRORS 
(SP) ,SERRPC 7:GET ADDRESS OF ERROR INSTRUCTION 
001132 #2, SERRPC 
001130 @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 152444 #B1T13,aSwR ::SKIP TYPEOUT IF SET 
208 33SKI©&° TYPEOUTS 
021662 PC,ERRTYP 3:G0 TO USER ERROR ROUTINE 
104401 001217 - SCRLF 


122737 000001 001242 #APTENV,SENV RUNNING IN APT MODE 
$ 3:NO,SKIP APT ERROR REPORT 


2 
001130 026544 SITEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
030466 ne erage ;;REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 
152400 5$:. ::HALT ON ERROR 
; S:SKIP IF CONTINUE 
::HALT ON ERROR! 
:: TEST FOR CHANGE IN SOFT-SWR 
001000 152364 35: #81709 ,aSuR : LOOP ON ERROR SWITCH SET? 
ee I 
001124 SLPERR, (SP) :: FUDGE RETURN FOR LOOPING 
001210 4$: SESCAPE i: CHECK FOR AN ESCAPE ADDRESS 
013716 001210 es SESCAPE , (SP) se uoae RETURN ADDRESS FOR ESCAPE 
022737 021642 000042 WSENDAD,a#42 =; ;ACT=11 AUTO-ACCEPT? 
001001 6$ ::BRANCH IF NO 
000000 ss SS YES 
026622 000002 ; RTI > RETURN 
-SBTTL TTY INPUT ROUTINE 


SRAAAAAAAEAAAAAAA TARA AAA AAA RARE A AAA AAA AARARAAAAAAAAAAAARAREKERE 


‘ENABL LSB 
026624 000000 STKCNT: .WORD : NUMBER OF ITEMS IN QUEUE 
026626 000000 STKQIN: .WORD :: INPUT POINTER 
026630 000000 STKQOUT: .WORD *:QUTPUT POINTER 


AAAAAAABAAOOHD| 
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026632 


026634 


026702 


026704 


026754 
026756 


027030 


000001 
026633 
026634 


005037 


000207 


117746 


001500 


022737 


022627 


026624 


000100 


152252 
177600 
000003 


030020 
026634 


002632 
000007 


000176 


000001 
001212 


000023 
152150 
152142 
152136 


177600 
000021 
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026626 
026630 
000060 
000062 


152256 


001154 


026624 


T 


$ 
$ 


J 10 
OS-APR-78 14:49 PAGE 126 


TY INPUT ROUTINE 


TKQSRT: .BLKB 1 
TKQEND=. 


SEQ 0126 


i: TTY KEYBOARD QUEUE 


- EVEN 


 *CALL: 
-* 


*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
: *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR PC, STKINT 
* RETURN 
TKINT: STKCNT s:CLEAR COUNT OF ITEMS IN QUEUE 
#STKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
#STKSRV,Q@#TKVEC ;; INITIALIZE THE KEYBOARD VECTOR 
#200 ,a#TKVEC+2 ;;"’BR’’ LEVEL 4 


asTKB 
#100, a$Tks 
PC 


:*TK SERVICE ROUTINE 


s*THIS ROUTINE WILL SERVICE THE 


7:CLEAR DONE FLAG 
;;ENABLE TTY KEYBOARD INTERRUPT 
7zRETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*IT IN THE QUEUE. 
stIF THE CHARACTER IS A “‘CONTROL-C"* ( C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C"* RESTART ADDRESS (START) 


$TKSRV: MOVB 
BIC 


as$TKB,-(SP) 
# C177, (SP) 
(SP) #3 

1$ 

- SCNTLC 

PC, STKINT 
(SP)+ 

START 

(SP) ,#7 

$ 


#SWREG, SWR 
6$ 


#1, STKCNT 
3$ 


, SBELL 
(SP)+ 


5$ 

(SP) ,#23 
328 

asTks 

(SP)+ 
asTKs 

31$ 
a$TKB,-(SP) 


# (177, (SP) 
(SP)+,#21 


::PICKUP THE CHARACTER 
z:STRIP THE JUNK 

3:18 IT A CONTROL C? 
;;BRANCH IF NO 

7:TYPE A CONTROL-C ( C) 
7; INIT THE KEYBOARD 
7;CLEAN UP STACK 
:sCONTROL C RESTART 
31S IT A CONTROL G? 
::BRANCH IF NO 

3218S SOFT-SWR SELECTED? 
::G0 TO SWR CHANGE 


3:18 THE QUEUE FULL? 

:;BRANCH IF NO 

3 :RING THE TTY BELL 

+i CHARACTER OFF OF STACK 


EX! 
::1S IT A CONTROL-S? 
;;BRANCH IF NO 

;:DISABLE TTY os daaae INTERRUPTS 
3;CLEAN CHAR OFF STA 

::WAIT FOR A CHAR 

;;LOOP UNTIL ITS THERE 

::GET THE CHARACTER 

7;MAKE IT 7-BIT ASCII 

21S 1T A CONTROL-Q? 
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027034 31$ 3;BRANCH IF NO 
000100 152114 #100 ,aSTKSs fhe se TTY KEYBOARD INTERRUPTS 
oe URN 
026624 : STKCNT ;;COUNT THIS CHARACTER 
000140 (SP) ,#140 3:18 IT UPPER CASE? 
4$ >; :BRANCH IF YES 
000175 (SP), #175 3318S IT A SPECIAL CHAR? 
4$ ;;BRANCH IF YES 
000040 #40, (SP) ;;MAKE IT UPPER CASE 
177530 : (SP)+,a$TKQIN :;:AND PUT IT IN QUEUE 
026626 STKQIN ;;UPDATE THE POINTER 
026626 026633 STKQIN, #STKQEND +360 OFF THE END? 
5$ :BRANCH IF NO 
026632 026626 #STKQSRT,STKQIN ;:RESET THE POINTER 
027126 5$: 7 ;RETURN 


peeeeaeeeeceneeeeeedereeeeeeeeeeeeeeeeteeeeeeeenteteneeeeeeneeee 
: ®SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
027122 609176 001154 SCKSWR: CMP #SWREG, SUR 3218S THE SOFT-SWR SELECTED 
E 15$ ssEXIT IF NOT 
152022 asTKs 3718S A CHAR WAITING? 
15$ icf NOT, EXIT 
152016 @$TKB,-(SP) 77 YES 
177600 # (177, (SP) T:MAKE IT 7-BIT ASCII 
000007 (SP) ,#7 3:28 IT A CONTROL-G? 
027154 001300 2$ 4 ag of Daa IT IN THE TTY QUEUE 
3:AND EXI 


FARRAH SASA AAA AHA AERA AAA AAEAAATAAAAAKAAAAAARAAAAAAAAKERKAREEAEE 
: #CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
guetaee BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
027156 123727 001150 000001 6s: MPB SAUTOB, #1 77ARE WE RUNNING IN AUTO-MODE? 
2 7;BRANCH IF YES 
P) 7:CLEAR CONTROL-G OFF STACK 
026634 7:FLUSH THE TTY INPUT QUEUE 
151760 TKS ;;DISABLE TTY KEYBOARD INTERRUPTS 
112737 000001 001151 #1, SINTAG 7:SET INTERRUPT MODE INDICATOR 


104401 030032 T -SCNTLG 7:ECHO THE CONTROL-G ( G) 
030037 SGTSWR: , SMSUR 3: TYPE CURRENT CONTENTS 
000176 | SWREG,-(SP) 7:SAVE SWREG FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
030050 , SMNEW 7;PROMPT FOR NEW SWR 
19$: -(SP) 7;CLEAR COUNTER 
-(SP) 7; THE NEW SWR 
151720 7$: asTKs 3;CHAR THERE? 
027240 100375 7$ 7:1F NOT TRY AGAIN 


027242 117746 151714 a$TKB,-(SP) ::PICK UP CHAR 
027246 042716 177600 # (177, (SP) ;;MAKE IT 7-BIT ASCII 


027252 021627 000003 (SP) ,#3 3231S IT A CONTROL-C? 





CZRMKAO RMO3/2 DSKLS PRT 2 38 


CZRMKA.P11 
027256 


027312 
027316 
027320 
027324 
027330 


027332 


027462 


027464 
027466 
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000137 


021627 
001005 
104401 
062706 
000737 


021627 


000720 


011646 
016666 


030020 
000006 
001151 000001 
000100 151652 
002632 
000025 


030025 
000006 


000015 

000004 

000002 151600 
000006 

001217 

001151 000001 
000100 151556 


025772 
000060 


000067 


000060 
000002 


000002 
177776 


001216 


000004 000002 
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TTY INPUT ROUTINE 


17$: 


18$: 
BR 
-DSABL LSB 


9$ 

- SCNTLC 
#6,SP 
SINTAG,#1 
8$ 


#100,aSTKS 
START 


(SP), #25 
108 

» SCNTLU 
#6,SP 

19$ 

(SP), #15 
16$ 

4(SP) 

11$ 

2(SP) ,aSWR 
#6,SP 

, SCRLF 
SINTAG,#1 
15$ 
#100,a$TKS 


PC ,STYPEC 
+ late 


18$ 

(SP) ,#67 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
~2(SP), (SP) 
7$ 

, SQUES 

208 
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;;BRANCH IF NOT 

::YES, ECHO CONTROL-C ( C) 

7;CLEAN UP STACK 

> ;REENABLE TTY KEYBOARD INTERRUPTS? 
;;BRANCH IF NO 

7;ALLOW TTY KEYBOARD INTERRUPTS 

7: CONTROL-C RESTART 


7:18 IT A CONTROL-U? 
;;BRANCH IF NOT 

YES, ECHO CONTROL-U ( U) 
3: IGNORE PREVIOUS INPUT 
3;LET*S TRY IT AGAIN 


3:18 IT A <CR>? 

;;BRANCH IF NO 

::YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 

77 SAVE NEW SWR 

7;CLEAR UP STACK 

72:ECHO <CR> AND <LF> 

7 RE-ENABLE TTY KBD INTERRUPTS? 
;;BRANCH IF NOT 

: TTY KBD INTERRUPTS 


3:ECHO CHAR 

> :CHAR < 0? 

7:;BRANCH IF YES 

7;CHAR > 7? 

: BRANCH IF po 

3218S THIS THE sFIAST CHAR 

7 BRANCH IF YES 

3:NO, SHIFT PRESENT 

ii CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 

KEEP COUNT OF CHAR 

SISET IN NEW CHAR 

3:GET THE NEXT ONE 

sz TYPE ?<CR><LF> 

7: SIMULATE CONTROL-U 


FERRARA AAAAAAR AAA AAA AAA AAAAE AAA AERA AAAAERERAAAAEAREAARERAAAEAREEE 


:aTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR 
RETURN HERE 


SRDCHR: MOV 
MOV 


(SP) ,-(SP) 
4(SP),2(SP) 


3:GET A CHARACTER FROM THE QUEUE 
CHARACTER IS ON THE STACK 
:;WITH PARITY BIT STRIPPED OFF 


: PUSH — THE PC AND 


SEQ 0128 
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027474 005066 000004 4(SP) :;GET READY FOR A CHARACTER 
005046 -(SP) ;;PUT NEW PS ON STACK 
012746 027510 #64$ ,-(SP) ;;PUT NEW PC ON STACK 
000002 ;;POP NEW PC AND PS 


005737 026624 1$: STKCNT ::WAIT ON A CHARACTER 


026624 STKCNT 7;DECREMENT THE COUNTER 
000004 pAteoe w 4(SP) ond ONE CHARACTER 
$TKQOUT ;;UPDATE THE POINTER 
026630 026633 oes -#STKQEND "7gb1o _ _ OF THE END? 
ANCH 


2 ; BR IF N 
026632 026630 #STKQSRT,STKQOUT. ie THE POINTER 
027552 000002 2s: 7 RETUR 


sceninatnseesienduenianusibbanbertiaseseaseubastentmemidabaatenaes 


[*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;*CALL: 

7% DLIN 7; INPUT A STRING FROM THE TTY 

;# RETURN HERE 7zADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
he >; TERMINATOR WILL BE A BYTE OF ALL 0°S 


027554 010346 SRDLIN: MOV R3,-(SP) 7: SAVE R3 
CLR -(SP) 7:CLEAR THE RUBOUT KEY 
030010 1$: #STTYIN,R3 3:GET ADDRESS 
030020 2s: #STTVYIN*8.,R3 ;;BUFFER FULL? 
4$ 3:BR IF YES 
3:GO READ ONE CHARACTER FROM THE TTY 
(SP)+,(R3) 3:GET CHARACTER 
000177 10$: #177, (R3) 7:18 IT A RUBOUT 
5$ $3 IF NO 
(SP) 3:18 THIS THE FIRST RUBOUT? 
6$ 3:;BR IF NO 
000134 030006 #' ,9$ 3; TYPE A BACK SLASH 
030006 9$ 
177777 #-1, (SP) 3:SET THE RUBOUT KEY 
R3 ;;BACKUP BY ONE 
030010 + ‘ailainnae 2 STACK EMPTY? 


:BR IF YES 
030006 (R3),9% ::SETUP TO TYPEOUT THE DELETED CHAR. 
030006 .9$ :3:G0 TYPE 
2$ 7:GO READ ANOTHER CHAR. 
; (SP) ;;RUBOUT KEY SET? 
7$ ::BR IF NO 
000134 030006 #’ ,9% 7: TYPE A BACK SLASH 


030006 
(SP) :;CLEAR THE RUBOUT KEY 
00002§ : 331S CHARACTER A CTRL U? 


7:BR IF NO 
030025 . 3: TYPE A CONTROL ‘'U"’ 

8 3:GO START OVER 
z:1S CHARACTER A “"' R°'? 
3: BRANCH IF NO 
shy THE CHARACTER 

TYPE A “’CR'' @ ‘LF’ 
>: TYPE THE INPUT STRING 
027724 000717 3$ _ $3G0 PICKUP ANOTHER CHACTER 
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027726 001216 4$: , SQUES si TYPE A ‘?° 
;;CLEAR THE BUFFER AND LOOP 
030006 3$: ' (R3),9$ 7;ECHO THE CHARACTER 
030006 9 
000015 #15, (R3)+ 7; CHECK FOR RETURN 
2s ;;LOOP IF NOT RETURN 
177777 7:CLEAR RETURN (THE 15) 
001220 $ 7; TYPE A LINE FEED 
st as ad KEY FROM THE STACK 
(SP) ,-(SP) + ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP),2(SP) 32 FIRST ASCII CHARACTER ON IT 
030010 000004 #STTYIN,4(SP) 3 ren 
7 RETURN 


9$: P 4 Henn a FOR ASCII CHAR. TO TYPE 
33 NAT 
STTYIN: . 7 RESERVE 3. anes FOR TTY INPUT 
005015 000 S$CNTLC: / €/<15><12> += CON NTROL 
000012 $CNTLU: / U/<15><12> stOnTROL “Ur 
000 S$CNTLG: / G/<15><12> :: CONTROL Bi 
051127 SMSWR: “ASCIZ <15><12>/SWR = / 


020127 SMNEW: .ASCIZ / NEW = 
030056 


030062 -EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


OPTI iri ii sii ii rit iititititititititititititiiiiiititiiiiiy. 
“THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

: *CHANGE IT TO BINARY. 

*CALL: 
ie RDOCT 7:;READ AN OCTAL NUMBER 
;* RETURN HERE 3;LOW ORDER BITS ARE ON TOP OF THE STACK 
;* 7;HIGH ORDER BITS ARE IN $HIOCT 


011646 SRDOCT: (SP),-(SP) ::PROVIDE SPACE FOR THE 
000004 000002 M 4(SP),2(SP) 3; INPUT NUMBER 
RO,-(SP) :;PUSH RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 3;PUSH R2 ON STACK 
3;READ AN ASCIZ LINE 
(SP)+,RO 3;GET ADDRESS OF 1ST CHARACTER 
R1 7: CLEAR DATA WORD 


R2 
(RO)+,=(SP) ;:PICKUP THIS CHARACTER 
3$ ::1F ZERO GET OUT 


R2 
177770 z;STRIP THE ASCII JUNK 
;:ADD IN THIS DIGIT 


3; LOOP 
030140 005726 $ 3: CLEAN TERMINATOR FROM STACK 
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CZRAKA.P 
030142 


030162 


030164 


030222 


030224 
030226 
030234 


030236 


030252 
030254 
030256 


030266 


010166 
010237 
012602 


000000 


016646 


000200 


011646 
016666 
000002 


030224 


025032 
027212 
027122 


024736 


000012 
030162 


000002 
000020 
030202 


000002 


030236 


000004 000002 


B11 
MACY11 30A(1052) OS-APR-78 14:49 PAGE 131 SEQ 0131 


READ AN OCTAL NUMBER FROM THE TTY 


R1,12(SP) 7;SAVE THE RESULT 
R2,$HIOCT 

(SP)+,R2 ::POP STACK INTO R2 
(SP)+,R1 ;:POP STACK INTO R1 
(SP)+,RO 3;POP STACK INTO RO 


RTI 7 RETURN 
SHIOCT: .WORD 0 : HIGH ORDER BITS GO HERE 
-SBTTL TRAP DECODER 


pLRARAA HARARE RAHA AAA AA AAA TAHA TAA AAHA TEE eee R eee eee eee eet eeeeeere 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


STRAP: 2(SP),-(SP) ; ASSUME THE STATUS OF 
B #20, (SP) 3; THE CALLER--DO NOT ALLOW 
#1$,-(SP) 3: T-BIT TRAPS 
;;SET THE NEW STATUS 
1$: RO,-(SP) ;:SAVE RO 
:;GET TRAP ADDRESS 
; BACKUP BY 2 
+3GET RIGHT BYTE OF TRAP 
R ;POSITION FOR INDEXING 
STRPAD(RO) ,RO :: INDEX TO TABLE 
RO 3:60 TO ROUTINE 


3;THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


STRAP2: MOV (SP) ,-(SP) 3:MOVE THE PC DOWN 
MOV 4(SP),2(SP) >;MOVE THE PSW DOWN 
RTI 7sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES,CALLED 
:*BY THE ‘’TRAP’’ INSTRUCTION. - 


; ROUTINE 


STRPAD: . STRAP2 
$ 7; CALL=TYPE TRAP#+1(104401) TTY TYPEOUT ROUTINE 
;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3; CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


SGTSWR ;;CALL=CTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
3; CALL=ROCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
+3 CALL= ROLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 

DOC ;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 

SSAVREG :;CALL=SAVREG TRAP+14(104414) SAVE RO-RS ROUTINE 
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6607 
8 


030270 


030272 


030342 


030344 


030446 


030450 


030504 


024774 


012737 


000776 


012737 


000122 


112737 


112737 


010046 
010146 
105737 
001450 
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030432 
000340 


150626 
030436 
030344 


030432 
030436 
030436 
030436 


150560 


030272 
000340 


047520 


000001 
000001 


000001 


030712 


MACY11 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


930714 
030712 


030714 


¢ 11 
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TRAP TABLE 


SRESREG ;;CALL=RESREG TRAP+#15(104415) RESTORE RO-R5 ROUTINE 
-SBTTL POWER DOWN AND UP ROUTINES 


pRRRARARA AAA RAAT RATA AAA THAT AAA E TERETE TERE RE Ree eee TERE Reet 
“POWER DOWN ROUTINE 
SPWRDN: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST UP 
, #340 ,a#PWRVEC+2 ;;PRIO:7 
33 RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
@SWR ON STACK 


SAVR6 7:SAVE SP 
#SPURUP, @#PWRVEC ;;SET UP VECTOR 
ome 3 HANG UP 


PLRRA RARE RAE AAA AAA AAA AAA A AAA A AEA A TARTAR AER R ERE ERE EE 
;POWER UP ROUTINE 
SPWRUP: MOV #SILLUP a#PWRVEC ;;SET FOR FAST DOWN 
V SSAVR6, SP :;GET SP 
SSAVR6 ;:WAIT LOOP FOR THE TTY 
1$: SSAVR6 3;WAIT FOR THE INC 
1$ WORD 


(SP)+,a@SWR ::POP STACK INTO @SWR 

(SP)+,R5 33;POP STACK INTO RS5 

(SP)+,R4 3:POP STACK INTO R4 

(SP)+,R3 3:POP STACK INTO R3 

(SP)+,R2 3;POP STACK INTO R2 

(SP)+,R1 ::POP STACK INTO R1 

(SP)+,RO ::POP STACK INTO RO 

#SPWRON @#PWRVEC ;;SET UP THE POWER DOWN VECTOR 

#340, a#PWRVEC+2 ;;PRIO:7 

REPORT THE POWER FAILURE 

SPWRMG: . SPOWER :;POWER FAIL MESSAGE POINTER 


SILLUP: 37; THE POWER UP SEQUENCE WAS STARTED 
B . 3; BEFORE THE POWER DOWN WAS COMPLETE 

SSAVR6: 0 :;PUT THE SP HERE 

SPOWER: .ASCIZ <15><12>"'POWER"’ 


- EVEN 
-SBTTL APT COMMUNICATIONS ROUTINE 


PRCT ISI r ir iti iti iit rir ii ii iii iit iiiititiiiiiiitiiiiiiiiy, 
SATY1: #1,SFFLG 3;TO REPORT FATAL ERROR 
SATY3: #1,SMFLG 3:TO TYPE A MESSAGE 
BR SATYC 
SATY4: #1,SFFLG 3:TO ONLY REPORT FATAL ERROR 


SATYC: 
RO,-(SP) 3;PUSH RO ON STACK 
R1,-(SP) :;PUSH R1 ON STACK 
SMFLG 7;SHOULD TYPE A MESSAGE? 
5$ z71F NOT: BR 
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030714 


122737 


000000 
105737 


000040 


000001 
000100 
000004 
000002 
001222 


001236 


001256 


001240 
000004 


000004 


025560 


030714 
001242 
001222 


000004 
000002 
001222 
030714 
030713 
030712 
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001242 
001243 


000004 


001222 


030624 
000004 


001224 
000004 


05-APR-78 


APT COMMUNICATIONS ROUTINE 


SMFLG: 
SLFLG: 
SFFLG: 


EVE 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


~ Sieeennass 


3 
#APTSPOOL , SENVA 
3$ 


a4(SP),RO 
#2,4(SP) 
at 


1$ 
RO, — 
(RO) + 


23 
SMSGAD ,RO 
RO 


RO, SASGLGT 
#4, SMSGTYPE 


5$ 
yt oy 


#2,4 
137776, sp) 
_ LSTYPE 


SFFLG 
12$ 
SENV 

12$ 
SMSGTYPE 
11$ 


@4(SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 
SFFLG 

SLFLG 

SMFLG 
(SP)+,R1 
(SP)+,RO 

PC 

0 


0 
0 


D 11 
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SEQ 0133 


Tan a APT? 
+s SHOULD SPOOL MESSAGES? 
NOT: BR 


::GET MESSAGE ADOR. 

;;BUMP RETURN ADDR. 
::SEE IF DONE W/ LAST XMISSION? 
331F NOT: WAIT 
;;PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

3:GET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
7:TELL APT TO TAKE MSG. 


33PUT MSG ADDR IN JSR LINKAGE 
;BUMP RETURN ADDRESS 

33PUSH 177776 ON STACK 

7:CALL TYPE MACRO 


3;SHOULD REPORT FATAL ERROR? 
33 NOT: BR 
3:RUNNING UNDER APT? 
3:1F NOT: BR 
+s FINISHED LAST MESSAGE? 

3IF NOT: WAIT 
GET ERROR # 

;BUMP RETURN ADDR. 
ss TEL APT TO TAKE ERROR 
3:CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
3;POP STACK INTO R1 
3:POP STACK INTO RO 
3 RETURN 
3:MESSG. FLAG 
3;LOG FLAG 
sz FATAL FLAG 





CZ 
CZ 
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-SBTTL CONSOLE MESSAGES 


-NLIST BE 
CLSPRN: . a)a 
000 EQUALS: a-a 
025012 000 PROMPT: <CR><LF>ata 
000 QSTMRK: a?a 
HELPQST: 
052012 050131 one <CR><LF>@TYPE HELP TEXT (Y OR N)??a 
UBUSQS 
041412 040510 .ASCIZ <CR><LF>@CHANGE RMO3 UNIBUS ADDRESS OR VECTOR ADDRESS (Y OR N)<CR> 778 
051525 CNSLOO: .ASCIZ <CR><LF>@USE SAME DEVICES (Y OR N) 27a 
CNSLO1: .ASCIZ <CR><LF>@RMO3 BUS ADDRESS (a 
CNSLO2: .ASCII <CR><LF>@ENTRY NOT IN I/0 PAGE@ 
-ASCIZ <CR><LF>@ADDRESS MUST BE >1600008 
CNSLO3: .ASCIZ <CR><LF>@RMO3 VECTOR ADDRESS (a 
CNSLO4: .ASCII <CR><LF>@ENTRY OUT OF RANGE@ 
-ASCIZ <CR><LF>@ADDRESS MUST BE <10008 
CNSLOS: .ASCIZ <CR><LF>@RMO3 INTERRUPT PRIORITY (a 
042412 052116 : .ASCIZ <CR><LF>@ENTRY OUT OF RANGE@ 


005015 054524 042520 . <CR><LF>@TYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICE@ 
047040 046525 042502 . @ NUMBER(S)a@ 
005015 042524 046522 SCIZ <CR><LF>@TERMINATE INPUT WITH CARRIAGE RETURN@ 
031553 015 047012 052117 HF ee ete <CR><LF>/NOT EXIST DRIVE / 
L 


031600 -EVEN 





jw — 
CZRM 


031600 
031600 


031676 
031700 


031707 


DSKLS PRT 2 


O5-APR-78 14:3 


020000 


MACY11 30A(1052) 
CONSOLE 


FNCDTB: 


. WORD 
- WORD 
- WORD 
. WORD 
. WORD 
- WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
« WORD 
- WORD 
. WORD 
. WORD 
. WORD 


“WORD 
ATNTBL: 


F 11 
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MESSAGES 


OPI 
OPI!ATA!ILF!IVC 
ATA!OPI! IVC! IAE 
ATA!OPI! IVC 


OPI 

OPI'IVC 
OPI!ATA!IVC 
OPI!ATA! IVC 
OPI 


OPI 

OPI'ATALILF!IVC 
OPI'ATALILF!IVC 

ATA! OPI! IVC! IAE 
OPI!ATALILF!IVC 
OPI'ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATALILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATALILF!IVC 
WCE!OPI!IVC!IAE!AOE!HCE!ECH 
WCE'OPI!IVC! IAE!AOE!HCE!ECH 
OPI'ATALILF!IVC 
OPI'ATA!ILF!IVC 

OPI! IVC!WLE! IAE!AOE ! HCE 
OPI! IVC!WLE! IAE!AOE 
OPI!ATALILF!IVC 
OPI!ATALILF!IVC 

OPI! IVC! ITAE!AOE!HCE!ECH 
OPI! IVC! IAE!AOE!HCE!ECH 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


SEQ 0135 


FUNCTION CODE TABLE 


ILLEGAL FUNCTION (2) 
; SEEK 


;RECALIBRATE 
DRIVE CLEAR 


RELEASE 

; OFFSET 

RETURN TO CENTERLINE 
READ IN PRESET 

;PACK ACKNOWLEDGE 

: ILLEGAL FUNCTION 

; ILLEGAL FUNCTION 

> SEARCH 

ILLEGAL FUNCTION 

: ILLEGAL FUNCTION 

: ILLEGAL FUNCTION 

; ILLEGAL FUNCTION 

: ILLEGAL FUNCTION 

: ILLEGAL FUNCTION 

; ILLEGAL FUNCTION 
sWRITE CHECK DATA 
sWRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 
sWRITE DATA 

;WRITE HEADER AND DATA 
s ILLEGAL FUNCTION (64) 
; ILLEGAL FUNCTION (66) 
READ DATA 

READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 
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- EVEN 


031710 046420 040006 000000 EMT1: .WORD E&MS300,EMS1,0 
046506 EMT2:  .WORD €&MS301,EMS302,EMS303,EMS1,EMS304 


051251 -WORD =EMS511,EMS500,EMS501 ,EMS502,EMS503,0 


EMT3: .WORD EMS301,EMS306,EMS302 
051251 WORD =EMS511,EMS505,EMS501,EMS502,0 


046461 046542 EMT4: .WORD EMS300,EMS302,EMS307,EMS2 
051276 051251 WORD EMS511,EMS502,EMS501,EMS503.0 


046620 EMTS: .WORD €EMS301,EMS310,EMS311 
051251 WORD = EMS511,EMS502,EMS501,EMS503,EMS504 


«WORD €MS312,0 
046620 EMT6: .WORD €EMS301,EMS306,EMS311 
-WORD = EMS511,EMS502,EMS501,EMS503,EMS504,0 


EMT7: .WORD EMS301,EMS313,EMS302 
-WORD EMS511,EMS501,EMS502,EMS504,EMS503,0 


EMT10: .WORD E&MS316,EMS317,EMS314 
051251 051276 -WORD EMS511,EMS501,EMS502,0 


047051 047002 EMT11: .WORD €E&MS316,EMS317,EMS315 
051251 051276 WORD €&MS511,EMS501,EMS502,0 


047071 046753 EMT12: .WORD €MS316,EMS320,EMS314 
051251 051276 -WORD €MS511,EMS501,EMS502,0 


047071 047002 EMT13: .WORD €&MS316,EMS320,EMS315 
051251 051276 -WORD EMS511,EMS501,EMS502,0 


047111 046753 EMT14: .WORD €&MS316,EMS321,EMS314 
051251 051276 -WORD = EMS511,EMS501,EMS502,0 


047111 047002 EMT15: .WORD €EMS316,EMS321,EMS315 
051251 051276 «WORD €MS511,EMS501,EMS502,0 


047131 046753 EMT16: .WORD €EMS316,£MS322,EMS314 
051251 051276 «WORD &MS511,EMS501,EMS502,0 


047131 047002 EMT17: .WORD EMS316,EMS322,EMS315 
051251 051276 -WORD €MS511,EMS501,EMS502,0 


047350 047426 EMT20: .WORD EMS71,EMS335,EMS340,EMS72,EMS377,EMS372 


~-WORD €MS511,EMS503,0 
EMT21: .WORD EMS71,EMS336,EMS340,EMS72,EMS400,EMS372 


~WORD €MS511,E"S503,0 
EMT22: .WORD EMS73,EMS352,EMS74,EMS402,EMS70,EMS406 
032330 050513 044344 050612 
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6815 032336 051670 051345 051371 «WORD EMS511,EMS503,EMS504,0 


6817 032346 044546 047653 044671 EMT23: .WORD EMS73,EMS352,EMS75,EMS402,EMS77,EMS406 
6818 032354 050513 045006 050612 
6819 032362 051670 051345 051371 «WORD = EMS511,EMS503,EMS504 ,0 


6821 032372 044546 047770 044671 EMT24: .WORD EMS73,EMS356,EMS75,EMS402,EMS77,EMS377 
6822 032400 050513 045006 050450 
6823 032406 051670 051345 051371 -WORD EMS511,EMS503,EMS504 ,0 


6825 032416 044546 047350 047426 EMT25: .WORD €EMS73,EMS335,EMS340,EMS76,EMS411 

6826 032424 044745 050654 

6827 032430 051670 051345 000000 -WORD &MS511,EMS503,0 

6828 032436 046436 046526 046010 EMT26: .WORD €&MS301,EMS306,EMS252,EMS253,EMS327,EMS254 
6829 032444 046043 047231 046076 


6830 032452 051670 051345 051251 -WORD EMS511,EMS503,EMS501,EMS502 
6831 032460 051276 
6832 032462 047237 046753 000000 -WORD EMS330,EMS314,0 


6833 032470 047412 044546 050645 EMT27: .WORD €&MS337,EMS73,EMS410,EMS76,EMS411 
6834 032476 044745 050654 

6835 032502 051670 051345 000000 ~-WORD EMS511,E"S503,0 

6836 032510 047412 045051 047437 EMT30: .WORD &MS337,EMS100,EMS341,EMS101 


6838 032520 051670 051345 051371 «WORD €MS511,EMS503,EMS504 ,0 
6839 032526 000000 

6840 032530 046420 046010 EMT31: .WORD EMS300,EMS252 

6841 032534 051670 051251 051345 -WORD E&MS511,€MS501,EMS503,0 
6842 032542 000000 

6843 032544 045051 050265 EMT32: .WORD EMS100,EMS370 

6844 032550 051670 051371 000000 ~-WORD €MS511,EMS504,0 

6845 032556 045051 050672 EMT33: .WORD €MS100,EMS412 

6846 032562 051670 051371 000000 ~-WORD EMS511,EMS504,0 

6847 032570 045165 050672 EMT34: .WORD €EMS102,EMS412 

6848 032574 051670 051345 000000 -WORD €&MS511,EMS503,0 

6849 032602 045165 047373 EMT35: .WORD €&MS102, ratte, 

6850 032606 051670 051345 000000 -WORD EMS511,EMS 


503.0 
6851 032614 045051 047350 047426 EMT36: .WORD €MS100,EMS335,EMS340,EMS102,EMS334 


6853 032626 051670 051371 000000 -WORD €&MS511,EMS504,0 
6854 032634 045051 047350 047426 EMT37: .WORD €&MS100,EMS335,EMS340,EMS102,EMS377,EMS365 


6856 032650 050706 045273 050742 WORD  EMS413,EMS104,EMS415 
6857 032656 051670 051371 000000 ~-WORD €MS511,EMS504,0 
6858 032664 045051 047373 047426 EMT40: .WORD €MS100,EMS336,EMS340,EMS416,EMS104,EMS415 


6860 032700 051670 051371 000000 -WORD €&MS511,EMS504,0 

6861 032706 045051 047372 047426 EMT41: .WORD €MS100,EMS336,EMS340,EMS73,EMS415,EMS402 
6862 032714 044546 050742 050513 

6863 032722 045165 050461 -WORD €&MS102,EMS400 

6864 032726 051670 051371 000000 ~-WORD &MS511,EMS504,0 

6865 032734 045233 050476 047231 EMT42: .WORD €&MS103, EMS<OT, EMS327,EMS370 


6866 032742 050265 

6867 032744 051670 051345 000000 WORD €MS511,EMS503,0 

6868 032752 050722 045273 050774 EMT43: .WORD €MS414,EMS104,EMS417 
6869 032760 051670 051371 000000 -WORD €MS511,EMS 


~SNI NE EN SS SS SO SS SS SS NSS SS SS St SWISS SS SS SSS SS SSN 


mS504,0 
6870 032766 045320 050476 047231 EMT44: .WORD €MS105,€MS401,EMS327,EMS370 
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032774 050265 
051345 000000 WORD €MS511,EMS503,0 
046043 EMT45: . EMS300,EMS253 
051251 051345 . EMS511,EMS501,EMS503,0 


050476 050774 EMT46: EMS106,EMS401,EMS417 
051345 000000 EMS5S11,EMS503,0 
045426 051013 EMT47: EMS413,EMS107,EMS420,EMS417 


051371 000000 . EMS511,EMS504,0 
050706 050602 EMTSO: . EMS110,€MS413,EMS405,EMS107 


051345 000000 . EMS511,E"S503,0 

045475 051026 EMTS1: . EMS343,EMS111,EMS421 

051371 000000 . EMS511,EMS504,0 

050762 045426 EMTS2: . EMS414,EMS416,EMS107,EMS421 


051371 000000 ° EMS511,EMS504 ,0 

040173 046201 EMTS3: . EMS331,EMS4 ,EMS256 

051251 000000 ° EMS511,€MS501,0 

050706 050602 EMT5S4: . EMS112,EMS413,EMS405,EMS607 


051345 000000 . EMS511,EMS503,0 
050476 047231 EMTSS: . EMS113,EMS401,EMS327,EMS370 


051345 000000 ° EMS511,EMS503,0 
050476 050774 EMTS6: . EMS114,EMS401,EMS417 


033200 051670 051345 000000 ° EMS511,EMS503,0 


033206 046231 047306 EMTS7: . EMS257,EMS332 
033212 051670 051470 051251 EMS511,EMS506,EMS501,0 
033220 000000 


033222 040224 047324 EMT60: . EMSS ,EMS333 
033226 051670 051525 051251 . EMS511,€MS507,EMS501,0 
033234 000000 


033236 050706 045656 051013 EMT61: . EMS413,EMS115,EMS420,EMS417 


051371 000000 ° EMS511,EMS504,0 
045051 047437 EMT62: . EMS346,EMS100,EMS341,EMS101 


051371 000000 . EMS511,EMS504,0 
EMT63: . EMS113,EMS371 
000000 EMS511,€MS503,0 
047667 EMT64: . EMS413,EMS116,EMS353 
000000 . EMS511,£"S504,0 
EMT65: . EMS422,EMS353 
033324 051670 051371 000000 EMS511,€MS504,0 


033332 040545 047373 047446 EMT66: . EMS12,EMS336,EMS342 
033340 051670 051251 000000 ° EMS511,€MS501,0 


033346 046420 040274 EMT67: . EMS300,EMS6 
033352 051670 051251 EMS511,EMS501 
033356 040340 047324 000000 ° EMS7,EMS333.0 


NSN NNN SN SW SSN SONOS ON OSS ON ON ON SONOS ON SONS ONION NOSSO 
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CZRAKA.P11 


033364 


033454 
033462 
033464 
033472 


033474 
033502 


033504 
033510 


033516 
033524 


033532 
033540 


033546 
033554 
033560 


033566 
033574 
033576 
033604 


033606 


033664 
033672 


046420 


000000 


040274 
040411 
051670 
000000 


040274 


000000 
046436 


000000 


047500 
000000 


046420 
051670 


047571 
051670 


047412 
051670 


046436 
047607 
051670 


047571 
040737 
051670 
000000 


047412 


040672 


047571 
041015 
051670 
000000 


047412 
041015 


040274 
051251 
047350 


047324 
051251 


047373 
047340 
051251 
046265 


051251 
047514 
040623 


051345 


040623 
051345 


040623 
051345 


046722 
040623 
051345 
040672 


051345 


044344 


041076 
051345 


041076 
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047231 
051371 
047426 


047446 
051276 


047426 
047446 
051276 
046506 


051276 


047446 


000000 


047543 
000000 


047543 
000000 


046076 
000000 
047437 
051251 


000000 
046076 


000000 
047437 
051251 


047437 


CONSOLE MESSAGES 


EMT70: 


EMT71: 


EMT72: 


EMT73: 


EMT74: 


EMT75: 


EMT76: 


EMT77: 


EMT100: 


EMT101: 


EMT102: 
EMT103: 


EMT104: 


EMT105: 


- WORD 
- WORD 


. WORD 
. WORD 


- WORD 
- WORD 


- WORD 
. WORD 


- WORD 
. WORD 


- WORD 


- WORD 
- WORD 


- WORD 
«WORD 


- WORD 
«WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 


- WORD 
- WORD 


- WORD 
- WORD 


. WORD 


EMS300,EMS6,EMS327,EMS7 
EMS511,EMS501,EMS504 ,0 


EMS6 ,EMS335.EMS340,EMS10,EMS333,EMS342 
EMS511,EMS501,EMS502,0 


EMS6 ,EMS336,EMS340,EMS10,EMS334,EMS342 
EMS511,EMS501,EMS502,0 


EMS301,EMS260,EMS303,EMS11 
EMS511,EMS501,EMS502.0 


EMS343,EMS344,EMS342,0 
EMS300,EMS13 


EMS511,EMS503,0 


EMS346,EMS13,EMS345 
EMS511,EMS503,0 


EMS337,EMS13,EMS345 
EMSS11,€MS503.0 


EMS301,EMS313,EMS254,EMS347,EMS13 
EMS511,EMS503,0 
EMS346,EMS14,EMS341,EMS15 
EMS511,EMS503,EMS501,0 
EMS337,EMS70 

EMS511,€MS503,0 
EMS301,EMS313,EMS254,EMS347,EMS15 


EMS511,EMS503 
FMS14,EMS332,0 


EMS346,EMS17,EMS341,EMS16 
EMS511,EMS503,EMS501,0 


EMS337,EMS17,EMS341,EMS16 





CZR 
CZR 


CZ 
Cz 


RAK 
R 


AO 


RMO3/2 
) 


MKA.P11 


033674 
033702 


033746 


033750 
033756 
033764 


033772 
034000 
034004 
034012 
034020 


034022 
034030 


034032 
034040 
034046 
034050 


034056 
034064 
034072 


034100 
034106 
034112 
034116 


034124 


034144 
034152 
034154 
034162 


034164 
034172 
034176 
034202 


034210 


DSKLS PRT 2 
O5-APR-78 14:38 


051670 
000000 


046436 
047607 
051670 
041076 


047571 


041137 
047630 
051670 


041137 
041262 
051670 


047412 


000000 
047412 


051670 


041137 
047630 
051670 


046436 
047607 
051670 
041137 


047571 
041405 
051670 
000000 


047412 
041405 
051670 
000000 


046436 
047607 
051670 
041327 


047571 


051345 


046722 
041015 
051345 
047306 
041137 
051345 
047635 
041262 
051251 
047340 
047324 
051251 
041137 
051345 
041137 
047630 
051251 
047653 
041262 
051251 
046722 
041203 
051345 
047306 
041327 


051345 


041327 
051345 
046722 
041405 
051345 
047306 


041464 
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051251 


046076 


000000 
047437 
051251 
041203 
047002 
000000 
047630 
000000 
047437 
051251 
047437 
041262 
000000 
041203 
047324 
000000 
046076 


000000 
047437 
051251 


047437 
051251 


046076 


000000 
047437 


CONSOLE MESSAGES 


EMT106: 


EMT107: 


EMT110: 


EMT111: 


EMT112: 


EMT113: 


EMT114: 


EMT115: 


EMT116: 


EMT117: 


EMT120: 


EMT121: 


«WORD 


«WORD 


. WORD 
. WORD 


- WORD 
- WORD 


«WORD 
«WORD 
«WORD 
. WORD 
- WORD 
- WORD 


- WORD 


- WORD 
- WORD 
- WORD 
- WORD 


- WORD 
- WORD 


- WORD 
- WORD 


- WORD 
. WORD 


- WORD 


- WORD 
- WORD 


- WORD 


EMS511,EMS503,EMS501,0 


EMS301,EMS313,EMS254,EMS347,EMS16 


EMS511,EMS503 
EMS17,EMS332,0 


EMS346,EMS20,EMS341,EMS21 
EMS511,EMS503,EMS501,0 


EMS20,EMS351,EMS21,EMS350,EMS22,EMS315 
EMS511,€4S501,0 
EMS20,EMS334,EMS350,EMS22,EMS333 
EMS511,€MS501,0 
EMS337,EMS20,EMS341,EMS21 
EMS511,EMS503,EMS501,0 


EMS337,EMS20,EMS341,EMS21,EMS350,EMS22,EMS334 


EMS511,€MS501,0 
EMS20,EMS352,EMS21,EMS350,EMS22,EMS333 
EMS511,EMS501,0 
EMS301,€MS313,EMS254,EMS347,EMS21 


EMS511,EMS503 
EMS20,EMS332,0 


EMS346,EMS23,EMS341,EMS24 
EMS511,EMS503,EMS501,0 


EMS337,EMS23,EMS341,EMS24 
EMS511,EMS503,EMS501,0 


EMS301,EMS313,EMS254,EMS347,EMS24 


EMS511,EMS503 
EMS23,EMS332,0 


EMS346,EMS25,EMS341,EMS26 





c7zk 
CZR 
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034216 041542 
034220 051670 051345 051251 -WORD EMS511,EMS503,€4S501,0 
034226 000000 


tote arses 041464 047437 EMT122: .WORD EMS337,EMS25,EMS341,EMS26 
034240 051670 051345 051251 -WORD €MS511,EMS503,EMS501,0 
034246 000000 


034250 046436 rogthes 046076 EMT123: .WORD EMS301,EMS313,EMS254,EMS347,EMS26 
051345 -WORD &MS511,EMS503 
047306 000000 -WORD €&MS25,EMS332,0 


034274 046420 041621 046542 EMT124: .WORD EMS300,EMS27,EMS307,EMS2 
034302 040057 
034304 051670 051345 000000 -WORD &MS511,EMS503,0 


034312 047256 041621 047667 EMT125: .WORD EMS331,EMS27,EMS353 
034320 051670 051345 WORD = EMS511,EMS503 
034324 041665 047002 000000 ~-WORD €EMS30,EMS315,0 


034332 047412 041621 047437 EMT126: .WORD €&MS337,EMS27,EMS341,EMS30 
034340 041665 
034342 051670 051345 000000 -WORD €&MS511,EMS503,0 


034350 046436 046722 046076 EMT127: .WORD EMS301,EMS313,EMS254.EMS347,EMS30 


047607 041665 
051670 051345 -WORD €&MS511,EMS503 
041621 047306 000000 ~-WORD EMS27,EMS332.0 


034374 041745 047713 045706 EMT130: .WORD &MS31,EMS354,EMS250 
034402 051670 051371 051345 «WORD EMS511,EMS504,EMS503,0 
034410 000000 


034412 042016 04771% 045706 EMT131: .WORD EMS32,EMS354,EMS250 
034420 051670 051371 051345 WORD EMS511,EMS504,EMS503.0 
034426 000000 


034430 047746 042076 045706 EMT132: -WORD EMS355,EMS33,EMS250,EMS341,EMS30 
034436 047437 041665 
034442 051670 051371 000000 WORD &MS511,EMS504,0 


034450 047746 042135 045706 EMT133: .WORD €EMS355,EMS34,EMS250,EMS341,EMS30 
034456 047437 041665 
034462 051670 051371 000000 -WORD €MS511,EMS504,0 


034470 047256 040173 046137 EMT134: .WORD E&MS331,EMS4,EMS255 
034476 051670 051371 000000 -WORD €&MS511,EMS504,0 


it otse oy the 050010 050032 EMT135: .WORD €&MS35,EMS357,EMS360,EMS15 
034514 051670 051251 000000 -WORD &MS511,EMS501,0 


034522 046316 050106 EMT136: .WORD €EMS261,EMS362 
034526 051670 051345 000000 WORD €&MS511,€MS503,0 
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popes} 042235 046542 EMT137: .WORD EMS300,EMS36,EMS307,EMS2 
051670 051251 000000 -WORD &MS511,€"S501,0 


047746 042265 046137 EMT140: .WORD EMS355,EMS37,EMS255,EMS341,EMS30 
047437 041665 
051670 051371 000000 -WORD EMS511,EMS504,0 


047571 042325 047543 EMT141: .WORD EMS346,EMS40,EMS345 
051670 051371 000000 -WORD €&MS511,EMS504,0 


tase 042325 047437 EMT142: .WORD EMS337,EMS40,EMS341,EMS30 
034616 051670 051371 000000 -WORD €&MS511,EMS504,0 


034624 050127 046603 042403 EMT143: .WORD EMS363,EMS310,EMS41 
034632 051670 051251 000000 -WORD EMS511,E"S501,0 


034640 047412 042403 047437 EMT144: .WORD EMS337,EMS41,EMS341,EMS252,EMS327,EMS253 
034646 046010 047231 046043 
034654 051670 051251 000000 ~-WORD E&MS511,E4S501,0 


034662 042403 047713 050144 EMT145: .WORD EMS41,EMS354,EMS364,EMS252,EMS365.EMS253 
034670 046010 050165 046043 
934676 051670 051251 000000 -WORD €&MS511,E4S501,0 


034704 046436 046526 042235 EMT146: .WORD &MS301,EMS306,EMS36 
034712 051670 051251 051345 «WORD €MS511,EMS501,EMS503,0 
034729 000000 


034722 050172 042451 EMT147: .WORD EMS366,EMS42 
034726 051670 051345 000000 -WORD €&MS511,EMS503,0 


034734 050215 047667 050165 EMT150: .WORD EMS367,EMS353,EMS365,EMS42,EMS354,EMS3 
034742 042451 047713 040126 
034750 051670 051345 000000 ~-WORD &MS511,EMS503,0 


034756 047412 042235 EMT151: .WORD EMS337,EMS36 
034762 051670 051251 000000 ~-WORD €&MS511,EMS501,0 


034770 042533 047713 042235 EMT152: .WORD EMS43,EMS354,EMS36 
034776 051670 051251 000000 ~WORD €&MS511,EMS501,0 


035004 050215 047667 050165 EMT153: .WORD EMS367,EMS353,EMS365,EMS36,EMS370 
035012 042235 
035016 051670 000000 WORD E&MS511,EMS503,0 


035024 050215 047667 050165 EMT154: .WORD EMS367,EMS353,EMS365,EMS36,EMS371 
035032 042235 050302 
035036 051670 051345 000000 ~-WORD  €&MS511,EMS503,0 


035044 046420 042604 046542 EMT155: .WORD €EMS300,EMS44,EMS307,EMS2 
035052 040057 
035054 051670 051345 000000 -WORD &MS511,E€S503.0 
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035062 
035070 
035076 


035104 
035112 
035114 


035122 
035130 


050215 
042604 
051670 
046420 
040057 
051670 


050215 
042645 


047667 
047713 
051345 
042645 
051345 


047667 
047713 
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050165 
040126 
000000 
046542 
000000 


050165 
040126 


CONSOLE MESSAGES 
EMT156: .WORD 

. WORD 
EMT157: .WORD 


. WORD 
EMT160: .WORD 


EMS367,EMS353,EMS365,EMS44,EMS354,EMS3 


 £MS511,€S503,0 


EMS300,EMS45,EMS307,EMS2 
EMS511,€"S503,0 
EMS367,EMS353,EMS365,EMS45,EMS354,EMS3 


SEQ 0143 
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035136 051670 051345 051251 -WORD EMS511,EMS503,EMS501 
035144 042173 047324 000000 «WORD EMS35,EMS333,0 


035152 046420 042722 046542 EMT161: .WORD EMS300,EMS46,EMS307,EMS2 
035160 040057 
035162 051670 051345 000000 -WORD E&MS511,EMS503,0 


035170 047412 042722 047667 EMT162: .WORD €&MS337,EMS46,EMS353 
035176 051670 051345 051251 «WORD EMS511,EMS503,EMS501,0 
035204 000000 


035206 042173 047350 047412 EMT163: .WORD EMS35,EMS335,EMS337,EMS41,EMS334,EMS372 
035214 042403 047340 050331 
035222 051670 051251 000000 WORD €MS511,EMS501,0 


035230 043004 047350 047412 EMT164: .WORD EMS47,EMS335,EMS337,EMS41,EMS335,EMS372 
035236 042403 047350 050331 
035244 051670 051251 000000 -WORD €&MS511,€MS501,0 


035252 pop eas 042173 047231 EMT165: .WORD €MS337,EMS35,EMS327,EMS47 
051670 051251 WORD = EMS511,EMS501 
042403 047324 050331 WORD EMS41,EMS333,EMS372,0 
035274 000000 


Setter 046420 043004 046542 EMT166: .WORD €EMS300,EMS47,EMS307,EMS2 


035306 051251 051345 -WORD = =EMS511,EMS501,EMS503,0 
035314 000000 


035316 043044 rogt ley 047426 EMT167: .WORD £&MS50,EMS335,EMS340,EMS36,EMS333 
051251 051345 -WORD E&MS511,EMS501,EMS503,0 
000000 


035340 047412 042173 EMT170: .WORD EMS337,EMS35 
035344 051670 051251 000000 -WORD = €MS511,EMS501,0 


035352 043044 042135 040126 EMT171: .WORD EMS5O,EMS34,EMS3 
035360 051670 051251 000000 WORD €&MS511,EMS501,0 


035366 046436 046526 043113 EMT172: .WORD &MS301,EMS306,EMS51 
035374 051670 051251 051371 WORD = =EMS511,EMS501,EMS504 ,0 
035402 000000 


035404 050215 047667 050165 EMT173: .WORD EMS367,EMS353,EMS365,EMS47,EMS354,EMS3 
035412 043004 047717 040126 
035420 051670 051251 000000 WORD  €MS511,EMS501,0 


035426 046420 045706 047231 EMT174: .WORD EMS300,EMS250,EMS327,EMS255,EMS327,EMS256 
046137 047231 046201 
047437 051767 -WORD EMS341,EMS600 

035446 051670 051251 000000 -WORD &MS511,EMS501,0 


035454 046420 046201 047437 EMT175: .WwORD EMS300,EMS256,EMS341,EMS600 
035462 051767 
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035464 051670 051251 000000 -WORD &MS511,E"S501,0 


035472 046420 045706 047437 EMT176: .WORD EMS300,EMS250,EMS341,EMS600 
035500 051767 
035502 051670 051371 000090 WORD EMS511,€MS504,0 


$2444 aesaer 046137 047437 EMT177: .WORD EMS300,EMS255,EMS341,EMS600 
035520 051670 051371 000000 -WORD €MS511,EMS504,0 


035526 047412 043162 047437 EMT200: .WORD EMS337,EMS52,EMS341,EMS601 
035534 052017 
035536 051670 051251 000000 -WORD EMS511,E4S501,0 


035544 047571 043162 447437 EMT201: .WORD €EMS346,EMS52,EMS341,EMS602 
035552 052037 
035554 051670 051251 000000 -WORD EMS511,EMS501,0 


035562 047571 043113 047437 EMT202: .WORD €MS346,EMS51,EMS341,EMS602 
035570 052037 
035572 051670 051251 000000 -WORD &MS511,EMS501,0 


035600 047571 043162 047543 EMT203: .WORD EMS346,EMS52,EMS345,EMS373,EMS255 
035606 050363 046137 

035612 051670 051371 051251 «WORD EMS511,EMS504,EMS501,0 

035620 000000 


035622 047571 043162 047437 EMT204: .WORD EMS346,EMS52,EMS341,EMS27 
035630 041621 

035632 051670 051371 051251 WORD = =EMS511,EMS504,EMS501.0 
035640 000000 


035642 043223 047713 040126 EMT205: .WORD EMS53,EMS354,EMS3 
035650 051670 051345 051276 ~-WORD =EMS511,EMS503,EMS502,EMS510,0 
035656 051615 000000 


035662 047412 043264 050367 EMT206: .WORD EMS337,EMS54,EMS374,EMS250,EMS327,EMS255 
047231 046137 
040126 ~-WORD EMS327,EMS3 
051371 051251 ~-WORD EMS511,EMS504,EMS501,0 

035710 000000 


035712 043264 047713 040126 EMT207: .WORD EMS54,EMS354,EMS3 
035720 051670 051251 000000 WORD &MS511,EMS501,0 


035726 043264 047713 050144 EMT210: .WORD EMS54,EMS354,EMS364,EMS250 
035734 045706 
035736 051670 051371 000000 WORD €&MS511,EMS504,0 


035744 043264 047713 050144 EMT211: .WORD EMS54,EMS354,EMS364,EMS255 
035752 046137 
035754 051670 051371 000000 WORD = E&MS511,EMS504,0 


035762 047412 043341 EMT212: .WORD EMS337,EMS55 
035766 051670 051371 000000 WORD E&MS511,EMS504,0 
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035774 043417 047340 047543 EMT213: .WORD EMS56,EMS334,EMS345,EMS373,EMS262,EMS327,EMS251 
046355 047231 


051251 WORD E&MS511,EMS501 
043417 047350 000000 -WORD EMS56,EMS335,0 


036024 047412 043417 EMT214: .WORD EMS337,EMS56 
036030 051670 051251 000000 -WORD EMS511,E4S501,0 


036036 043512 047324 047630 EMT215: .WORD EMS57,EMS333,EMS350,EMS60,EMS334 
036044 043576 047340 
036050 051670 051251 000000 -WORD &MS511,EMS501,0 


036056 050127 046526 040224 EMT216: .WORD EMS363,EMS306,EMS5 
036064 051670 051251 000000 -WORD €&MS511,EMS501,0 


036072 050127 046526 043650 EMT217: .WORD &MS363,EMS306,EMS61 
036100 051670 051251 000000 «WORD €&MS511,EMS501,0 


036106 043723 047324 050420 EMT220: .WORD €EMS62,EMS333,EMS375,EMS251 
036114 045744 
036116 051670 051251 000000 -WORD €&MS511,EMS501,0 


036124 043723 047324 050434 EMT221: .WORD EMS62,EMS333,EMS376,EMS262 
036132 046355 
036134 051670 051251 000000 -WORD €MS511,E"S501,0 


pop sh § 047324 050434 EMT222: .WORD EMS62,EMS333,EMS376,EMS250 
036152 051670 051251 000000 -WORD EMS511,€MS501,0 


036160 047571 043723 047437 EMT223: .WORD EMS346,EMS62,EMS341,EMS603 
036166 052100 
036170 051670 051251 000000 ~-WORD €&MS511,EMS501,0 


ooh 4) 044004 050434 EMT224: .WORD EMS346,EMS63,EMS376,EMS262 
051670 051251 051345 -WORD = EMS511,EMS501,EMS503,0 
036214 000000 


036216 044004 047324 047630 EMT225: .WORD EMS63,EMS333,EMS350,EMS363,EMS310,EMS262 
036224 050127 046603 046355 
036232 051670 051251 000000 ~WORD €&MS511,EMS501,0 


036240 044004 050010 042235 EMT226: .WORD EMS63,EMS357,EMS36,EMS372 
036246 050331 
036250 051670 051251 000000 -WORD &MS511,€MS501,0 


036256 044004 047770 050032 EMT227: .WORD EMS63,EMS356,EMS360,EMS15 
036264 040737 
036266 051670 051251 000000 -WORD €&MS511,€MS501,0 
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036274 044004 047770 050060 EMT230: .WORD EMS63,EMS356,EMS361,EMS15 
036302 040737 
036304 051670 051251 000000 -WORD €MS511,€"S501,0 


036312 044004 047770 042403 EMT231: .WORD EMS63,EMS356,EMS41 
036320 051670 051251 000000 «WORD &MS511,E€"S501,0 


036326 042403 050450 047446 EMT232: .WORD EMS41,EMS377,EMS342,EMS365,EMS63,EMS332 
036334 050165 044004 047306 
036342 051670 051251 000000 WORD = EMS511,EMS501,0 


036350 050215 047667 050165 EMT233: .WORD €EMS367,EMS353,EMS365,EMS63,EMS401 
044004 050476 
051670 051345 051251 «WORD €MS511,EMS503,€MS501,0 

036370 000000 


036372 041015 050450 050331 EMT234: .WORD €&MS16,EMS377,EMS372,EMS365,EMS64,EMS354,EMS3 
036400 050165 044044 047713 

036406 040126 

036410 051670 051345 051251 -WORD = =EMS511,EMS503,EMS501,0 

036416 000000 


036420 046420 044114 046542 EMT235: .WORD EMS300,EMS65,EMS307,EMS2 
036426 040057 

036430 051670 051276 051345 «WORD EMS511,EMS502,EMS503,0 
036436 000000 


043417 050450 050434 EMT236: .WORD EMS56,EMS377,EMS376,EMS252,EMS372,EMS350 
046010 050331 047630 
044114 050476 «WORD EMS65,EMS401 
051670 051276 051345 ~WORD =EMS511,EMS502,EMS503.EMS501.0 
036466 051251 000000 


036472 046420 044155 046542 EMT237: .WwORD EMS300,EMS66,EMS307,EMS2 
036500 040057 
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036502 051670 051251 051345 «WORD EMS511,EMS501,€MS503,0 
036510 000000 


036512 040737 050461 050331 EMT240: .WORD EMS15,EMS400,EMS372,EMS350,EMS66,EMS401 
036520 047630 044155 050476 

036526 051670 051345 051251 -WORD €MS511,EMS503,EMS501,0 

036534 000000 


036536 044155 047373 047426 EMT241: .WORD EMS66,EMS336,EMS340,EMS15,EMS406,EMS405,EMS604 
036544 040737 050612 050602 

036552 052121 

036554 051670 051345 000000 -WORD €&MS511,EMS503,0 


036562 050522 052121 050513 EMT242: .WORD EMS403,EMS604,EMS402,EMS21,EMS377 
036570 041203 050450 

036574 051670 051345 WORD = =EMS511,EMS503 

036600 042235 047350 000000 -WORD €MS36,EMS335,0 


036606 044155 047373 047426 EMT243: .WORD EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS604 
036614 041542 050563 050602 

036622 052121 

036624 051670 051345 000000 -WORD E&MS511,EMS503.0 


036632 044004 050476 050602 EMT244: .WORD EMS63,EMS401,EMS405,EMS604 
036640 052121 
036642 051670 051345 000000 -WORD &MS511,EMS503,0 


tants oni tes 050265 050602 EMT245: .WORD EMS36,EMS370,EMS405.EMS604 
036660 051670 051345 000000 -WORD = EMS511,E"S503,0 


036666 050522 052121 050513 EMT246: .WORD EMS403,EMS604,EMS402,EMS24,EMS377 
041405 050450 
051670 051345 -WORD  EMS511,EMS503 

036704 042235 047350 000000 -WORD €MS36,EMS335,0 


036712 044232 047306 050602 EMT247: .WwORD €EMS67,EMS332,EMS405,EMS604 
036720 052121 
036722 051670 051345 000000 -WORD &MS511,E"S503.0 


036730 044155 047373 047426 EMT250: .WORD EMS66,EMS336,EMS340,EMS15,EMS406,EMS405,EMS605 
rhe 050612 050602 
036746 051670 051345 000000 -WORD = €MS511,EMS503,0 


036754 050522 052146 050513 EMT251: .WORD EMS403,EMS605,EMS402,EMS21,EMS377 


WORD EMS511,EMS503 
036772 042235 047350 000000 WORD €EMS36,EMS335,0 


037000 044155 047373 047426 EMT252: .WORD EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS605 
Srrese 050563 050602 
037016 051670 051345 000000 -WORD €MS511,EMS503,0 


037024 044004 050476 050602 EMT253: .WORD EMS63,EMS401,EMS405,EMS605 
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037032 052146 
037034 051670 051345 000000 WORD = EMS511,E"S503,0 


037042 042235 050265 050602 EMT254: .WORD EMS36,EMS370,EMS405,EMS605 
037050 052146 
037052 051670 051345 000000 -WORD €&MS511,E"S503,0 


037060 050522 052146 050515 EMT255: .WORD EMS403,EMS605,EMS402,EMS24,EMS377 
041405 050450 
051670 051345 WORD &MS511,EMS503 

037076 042235 047350 000000 -WORD EMS36,EMS335,0 


atriss erste} 047306 050602 EMT256: .WORD EMS67,EMS332,EMS405,EMS605 
037114 051670 051345 000000 ~-WORD EMS511,EMS503,0 


037122 044155 047373 047426 EMT257: .WORD EMS66,EMS336,EMS340,EMS15,EMS406,EMS405,EMS606 
050612 050602 


037140 051670 051345 000000 -WORD €&MS511,EMS503,0 


037146 er tact 052164 050513 EMT260: .WORD EMS403,EMS606.EMS402,EMS21,EMS377 
051670 -WORD = EMS511,EMS503 
037164 042235 047350 000000 -WORD EMS36,EMS335,0 


037172 044155 047373 047426 EMT261: .WORD EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS606 


050563 050602 
037210 051670 051345 000000 -WORD EMS511,EMS503.0 


037216 044004 050476 050602 EMT262: .WORD EMS63,EMS401,EMS405,EMS606 
037224 052164 
037226 051670 051345 000000 -WORD &MS511,EMS503,0 


037234 042235 050265 050602 EMT263: .WORD EMS36,EMS370,EMS405,EMS606 
037242 052164 
037244 051670 051345 000000 -WORD &MS511,EMS503,0 


037252 050522 052164 050513 EMT264: .WORD EMS403,EMS606,EMS402,EMS24,EMS377 
041405 050450 
051670 051345 WORD EMS511,EMS503 

037270 042235 047350 000000 -WORD EMS36,EMS335,0 


037276 044344 050476 050602 EMT265: .WORD EMS70,EMS401,EMS405,EMS606 
037304 052164 
037306 051670 051345 000000 -WORD &MS511,€MS503,0 


037314 044232 047306 050602 EMT266: .WORD EMS67,EMS332,EMS405,EMS606 
037322 052164 
037324 051670 051345 000000 ~-WORD €&MS511,EMS503,0 


037332 044155 047770 050625 EMT267: .WORD EMS66,EMS356,EMS407 
037340 051670 051345 000000 WORD £&MS511,EMS503,0 


037346 044155 047373 047426 EMT270: .WORD EMS66,EMS336,EMS340,EMS15,EMS406,EMS405,EMS607 
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CZRMKA.P11 
037354 
037362 
037364 


037372 


037410 


037416 
037424 
037426 


037434 
037442 
037444 
037452 
037460 
037462 
037470 
037476 
037500 
037506 
037510 
037516 
037520 


037526 


037544 
037552 


037570 
037576 
037604 
037606 


037614 


037670 


040737 
052204 
051670 


050522 


041621 


041621 
052204 
051670 


041621 
052204 
051670 


042235 
052204 
051670 


043223 
052204 
051670 
000000 


044232 
052204 
051670 


044155 


051670 


050522 
041405 
051670 
041621 


044344 
052204 
051670 


052222 


053012 


050612 
051345 
052204 


047373 
050265 
051345 
050302 
051345 
050563 
051345 
050476 
051345 


047306 
051345 


047373 
050563 


051345 
052204 


047373 
050476 
051345 
000000 


069000 


H 12 
MACY11 30A(1052) O5-APR-78 14:49 PAGE 150 


050602 
900000 
050513 


000000 
050602 
000000 
050602 
000000 
050602 
000000 
050602 
051276 


050602 
000000 


047426 
050602 


000000 
050513 


000000 
050602 
000000 


CONSOLE MESSAGES 


- WORD 
EMT271: .WORD 


. WORD 
- WORD 


EMT272: .WORD 
. WORD 
EMT273: .WORD 
. WORD 
EMT274: .WORD 
- WORD 
EMT275: .WORD 
. WORD 


EMT276: .WORD 
- WORD 
EMT277: .WORD 


- WORD 
EMT300: .WORD 


«WORD 
«WORD 


EMT301: .WORD 
- WORD 


EHT1: WORD 
EHT2: WORD 
EHTS: WORD 
EHT7: WORD 
EHT47: .WORD 
EHT52: .WORD 
EHTS7: WORD 
EHT61: .WORD 
EHT65: .WORD 
EHT71: .WORD 
EHT74: . WORD 
EHT115: .WORD 


EMS511,€4S503,0 
EMS403,EMS607,EMS402,EMS21,EMS377 


EMS511,EMS503 
EMS27,EMS336,0 


EMS27,EMS370,EMS405,EMS607 
EMS511,€4S503,0 
EMS27,EMS371,EMS405,EMS607 
EMS511,EMS503,0 
EMS36.EMS404,EMS405,EMS607 
EMS511,€"S503,0 
EMS53,EMS401,EMS405,EMS607 
EMS511,EMS503,EMS502,0 


EMS67,EMS332,EMS405.EMS607 
EMS511,EMS503,0 
EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS607 


EMS511,EMS503,0 
EMS403,EMS607,EMS402,EMS24,EMS377 


EMS511,EMS503 
EMS27,EMS336.0 


EMS70,EMS401,EMS405,EMS607 
EMS511,€MS503,0 


SEQ 0150 
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037674 053110 000000 EHT130: . 
037700 053227 EHT132: . 
037704 053326 EHT145: . 
037710 053444 EHT150: . 
037714 053543 EHT213: . 
037720 053641 000000 EHT220: . 


037724 053700 


037756 054036 EDT220: . 


037760 054042 EFT1: 
EFT2: 
EFTS: 
EFTS7: 
EFT65: 
EFT71: 
EFT74: . 
EFTI15: . 
EFT130: 
EFT132: . 

040004 054046 EFT220: . 


040006 047516 042516 @NONEXISTENT DEVICE ‘'NED’’ (RMCS2,BIT 12) @ 
@CONTROLLER CLEAR ‘'CLR’’ (RMCS2,BIT 05) @ 
@FUNCTION CODE (RMCS1, BITS 01 - 05) @ 

@UNUSED BIT POSITIONS OF @ 

@DEVICE AVAILABLE ‘‘DVA’' (RMCS1, BIT 11) @ 
@PARTIY ERROR ‘‘PAR’' (RMER1, BIT 03) @ 

@DATA PARITY ERROR ‘'DPE'’ (RMER2, BIT 03) @ 

@PARITY TEST PAT’ (RMCS2, BIT 04) @ 

@MASSBUS CONTROL PARITY ERROR “MCPE a 
a(RMCS1, BIT 13) 

@ILLEGAL REGISTER. ERROR “‘ILR"’ (RMER1, BIT 01) @ 
@DIAGNOSTIC MODE ‘‘DMD’’ (RMMR1, BIT 00) @ 

@MEDIUM ON LINE ‘"MOL"’ (RMDS, BIT 12) @ 
@MAINTENANCE UNIT READY ‘'MUR’’ (RMMR1, BIT 09) @ 
@MAINTENANCE WRITE PROTECT ‘MWP*' (RMMR1, BIT 03) @ 
@WRITE LOCK "WRL*' (RMDS, BIT 11) @ 

@DEVICE CHECK “*DVC’’ (RMER2, BIT 07) @ 
@MAINTENANCE DRIVE FAULT “'MDF'’ (RMMR1, BIT 06) @ 
@UNSAFE STATUS ‘‘UNS'' (RMER1, BIT 14) @ 

@SEEK INCOMPLETE STATUS ‘'SKI'’ (RMER2, BIT 14) @ 
@MAINTENANCE SEEK ERROR "’MSER’’ (RMMR1, BIT 07) a 


>>> rm 
AnNnnn 
AAO 
se 


t=] 
- > 
™m 


So 
& 
N 


So 
w 
—_ 
ee ed et et oe 
~~~ NN ee ee ee em me Pe ee Pe ei 


et se he se 


MAMA & NW & 


041405 044501 052116 
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041464 047520 044523 044524 $ @POSITIONING IN PROGRESS ‘‘PIP’’ (RMDS, BIT 13) @ 
041542 waa 2 : @MAINTENANCE ON CYLINDER “MOC’’ (RMMR1, BIT 08) @ 
041621 105 : @END OF BLOCK “EBL’’ (RMMR1, BIT 13) @ 
041665 104 : @DIAGNOSTIC END OF BLOCK ‘‘DEBL’’ (RMMR1, BIT 13) @ 
041745 114 : @LAST SECTOR STATUS “‘LS"’ (RMMR1, BIT 02) a 
042016 040514 i @LAST SECTOR/TRACK STATUS “‘LST’’ (RMMR1, BIT 01) @ 
042076 042523 2 @SECTOR ADDRESS, BITS 00-04 OF @ 
5 : @TRACK ADDRESS, BITS 08-10 OF @ 

@VOLUME VALID ‘’VV"" (RMDS, BIT 06) @ 

aGO BIT (RACS1, BIT 00) @ 

@CYLINDER ADDRESS, BIT 00-09 OF @ 

@LAST BLOCK TAKEN STATUS ‘‘LBT"’ (RMDS, we 10) a 

i @COMPOSITE ERROR "ERR" (RMDS, BIT 14) 

042451 046517 040515 : @COMMAND SEQUENCER TEST BIT “TST (RNMR2, BIT 12) a 
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044522 042526 EMS43: . @DRIVE READY STATUS ‘DRY’ (RMDS, BIT 07) @ 
4: @CONTINUE “‘CONT’’ (RMMR1, BIT 06) @ 

@INVALID COMMAND ERROR “‘IVC’’ (RMER2, BIT 12) @ 
@LOSS OF SYSTEM CLOCK ERROR “‘LSC’’ (RMER2, BIT 11) @ 
@OCCUPIED “OCC’’ (RMMR1, BIT 15) @ 
@ILLEGAL FUNCTION ““ILF*’ (RMER1, BIT 0) @ 
@OFFSET DIRECTION ‘‘OFD’’ (RMOF, BIT 07) @ 
@OFFSET MODE ‘‘OM’’ (RMDS, BIT 00) @ 
@RUN AND GO "’RG’’ (RMMR1, BIT 14) @ 
@INVALID ADDRESS ERROR "‘IAE’’ (RMER1, BIT 10) @ 
@ADDRESS OVERFLOW ERROR ‘'AOE’’ (RMER1, BIT 09) @ 
@REGISTER MODIFICATION REFUSED ERROR @ 
a’'RAR’’ (RMER1, BIT 02) @ 
@DRIVE REQUEST REQUIRED STATUS ‘‘DRQ’’ (RMDT, BIT 11) @ 
@PROGRAMMABLE STATUS ‘’PGM'’ (RMDS, BIT 09) @ 
@DRIVE PRESENT STATUS ‘'DPR'’ (RMDS, BIT 08) @ 
@PORT REQUEST FLOP ‘'RQA,RQB"’ (RMMR2, BITS 15,14) @ 
@ATTENTION ‘‘ATA’’ (RMDOS, BIT 15) @ 
Q@WRITE LOCK ERROR ‘WLE*’ (RMER1, BIT 11) @ 
@EXCEPTION ‘‘REX’’ (RMMR1, BIT 12) @ 
@INVALID COMMAND ERROR ‘IVC’ (RMER2, BIT 12) @ 
@TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @ 
@LINES (RMMAR2, BITS 10,11,13) @ 

044344 042523 051101 044103 is @SEARCH ENABLE “‘ESRC'’ (RMMR1, BIT 11) @ 


044412 wet! 051105 052101 : @OPERATION IMCOMPLETE ERROR ‘‘OPI''(RMER1 BIT13) @ 


@DISABLE SEARCH TIMEOUT ‘‘DTO'’ (RMMR1 BIT 12) @ 
@DRIVE TIMING ERROR ‘‘DTE’'(RMER1,BIT 12) @ 
@MAINTENANCE INDEX PULSE ‘MI''(RMMR1 BIT 2) @ 
@MAINTENANCE SECTOR PULSE ‘MS''(RMMR1 BIT 5) @ 
@FORMAT BIT “FMT16"° (RMOF ,BIT12) @ 
@SECTOR COMPARE ‘‘MSC'’(RMMR1 BIT 1) @ 
@PROM STROBE ‘‘WC’’ (RMMR1 BIT 5) @ 
@MAINTENANCE BIT CLOCK ‘"MCLK*’ (RMMR1 BIT11) @ 
@LOOKING FOR SYNC ‘‘PLFS'*(RMMR1,BI1T10) @ 
Q@WRITE GATE ‘'BBOO’’ (RMMR2 BITO) a 
@HEADER SYNC PATTERN @ 
@HEADER AREA ‘'PHA’’ (RMMR1 BIT 7) @ 
@ENABLE CRC OUT “'ECRC’’ (RMMR1 BIT 9) @ 
@HEADER @ 
@READ GATE ‘‘BBO1''(RMMR2 BIT 1) @ 
@HEADER ERROR @ 
@DATA TIMING SEQUENCER OUTPUT @ 
@DATA AREA ‘'PDA'' (RMMAR1 BIT 8) @ 
@ENABLE ECC OUT “'EECC’’ (RMMR1, BIT 4) @ 
@ECC PATTERN @ 
@ECC ERROR @ 
@DISK ADDRESS REGISTER (RMDA) @ 
@CONTROL STATUS REGISTER #1 (RMCS1) @ 
@ERROR REGISTER #1 (RMER1) @ 
@ERROR REGISTER #2 (RMER2) @ 
@MAINTENANCE REGISTER #1 (RMMR1) @ 
@DESIRED CYLINDER REGISTER (RMDC) @ 
@OFFSET REGISTER (RMOF) @ 

: @ORIVE TYPE REGISTER (RMDT) @ 

046265 046117 044504 EMS260: . @HOLDING REGISTER (RMHR) @ 
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046316 042523 044522 046101 EMS261: @SERIAL NUMBER REGISTER (RMSN) @ 
046355 101 052124 047105 EMS262: . @ATTENTION SUMMARY REGISTER (RMAS) @ 


046420 040503 047116 052117 EMS300: @CANNOT CLEAR @ 
: @CANNOT WRITE/READ @ 
@ANY DEVICE REGISTER @ 
@wITHOUT @ 
@ERROR @ 
@A ONE FROM @ 
@USING MASSBUS INITIALIZE, I.E., @ 
@A ZERO FROM @ 
@EVERY DEVICE REGISTER BIT POSITION @ 
@THE FOLLOWING BITS ARE STUCK @ 
@A SHIFTING ONE BIT FROM @ 
@APPEARS STUCK AT ZERO @ 
@APPEARS STUCK AT ONE @ 
ar ae merth a 
a1 (1,2,4,8 
a2 (1 wae 
2.4, 
2,4, 
NES 
@ALL ZEROS 
@AT ZERO @ 
@AT ONE @ 
@, OR@ 
<CR><LF>@CS MBA CLRL @ 
@CANNOT READ ZEROS FROM @ 
@I1S INCORRECT @ 
@1S NOT SET @ 
alS SET @ 
@SHOULD NOT BE SET @ 
@SHOULD BE SET @ 
@CANNOT SET @ 
@BECAUSE @ 
@USING @ 
@DURING REGISTER TRANSFER @ 
@UNEXPECTED @ 
@BUS TIMEOUT (04 TRAP) @ 
@BY REGISTER TRANSFER @ 
@CANNOT RESET @ 
oe SETTING @ 


aBU 

@WAS RESET BY @ 

@WAS SET BY @ 

@IN DIAGNOSTIC MODE @ 
@1S INCORRECT ACCORDING TO @ 
@CANNOT INCREMENT @ 
@WAS NOT SET BY @ 

@WAS NOT RESET BY @ 

@0 TO 1 TRANSITION OF @ 
@1 TO 0 TRANSITION OF @ 
@1S INCONSISTENT @ 
@CANNOT READ @ 

@TEST PATTERN IN @ 

@AND @ 


te se ee 
NNN NNN NN 


050165 101 042116 000040 €MS365: 
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050172 040503 047116 052117 EMS366: .ASCIZ @CANNOT INITIALIZE @ 
050215 124 042510 041440 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 
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050265 122 051505 052105 €&MS370: @RESET EARLY @ 
2 : @D1D NOT RESET ON TIME @ 
COMMAND EXECUTION @ 


@WITH ANY COMBINATION OF @ 

@BY READING @ 
@BY WRITING @ 
@WAS SET a 
@WAS NOT SET @ 
@DID NOT SET @ 
@WHILE @ 
@COMMAND SEQUENCER DID NOT ABORT @ 
@WAS NOT RESET @ 
@DURING @ 
@WAS RESET @ 
@SEARCH TIMEOUT @ 
@AFTER @ 
@ WAS CHANGED @ 
@ SET EARLY @ 
@ INCORRECT @ 
@ CANNOT DETECT @ 
@ WAS SIMULATED @ 
@ CORRECT @ 
@ DURING WRITE @ 
@GENERATED @ 

: @DURING READ @ 

051043 111 041516 051117 EMS422: @INCORRECT DATA TRANSFERRED TO MEMORY @ 


051111 011 042504 044526 EMSS5O0: . a DEVICE IS NONEXISTENT,@<CR><LF> 

a DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 

a TRANSCEIVER ENABLE SWITCH IS OF Fa<CR><LF> 

a IF MODULE, M7686,a@<CR><LF> 

a MASSBUS TRANSCEIVER,M5922 OR M5923 @<CR><LF> 
CS MODULE .M7684 ,a<CR><LF> 
a 
a 
a 
3 
< 
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EMS501: . 


DS MODULE ,M7685 ,a<CR><LF> 
DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF> 
DEVICE IS NOT AN RMO3, OR@<CR><LF> 
DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, OR@<CR><LF> 
wt. ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF> 
EMS511: CR><LF>a PROBABLE FAULT(S) :@<CR><LF> 
051717 11 047050 052117 3 (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 


051767 040505 020104 EMS600: @READ IN PRESET COMMAND @ 

EMS601: @OFFSET COMMAND @ 
EMS602: @RETURN TO CENTER CENTER COMMAND @ 
EMS603: .ASC @RELEASE COMMAND @ 
EMS604: . @RECALIBRATE COMMAND @ 
EMS605: . @SEEK COMMAND @ 
EMS606: @SEARCH COMMAND @ 

040504 040524 041440 €EMS607: @DATA COMMAND @ 


054105 041520 042124 €EH!1: ‘ @EXPCTD RECEVD REGSTR@<CR><LF> 
052123 * @STATUS STATUS ADRESS@ 

040 EH2: @ BASE@<CR><LF> 
sinh + EH3: @ADRESS 


0 a 
052317 050130 052103 EHS: @EXPCTD STUCK@<CR><LF> 
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052337 122 051505 046125 eASCIZ @RESULT BIT(S)@ 
: -ASCIZ @EXPCTD RECEVD@ 

-ASCIZ @ FIRST SECOND CRC@ 

-ASCII @EXPCTD RECEVD EXPCTD RECEVD@<CR><LF> 

-ASCIZ @FIRST FIRST SECOND SECOND@ 

ASCII @SNGPRT DULPRT RECEVD DRVTYP@<CR><LF> 

-ASCIZ @DRVTYP DRVTYP DRVTYP REGADR@ 

-ASCIZ @ EXPECTED ECC RECEIVED ECC@ 

-ASCII @EXPCTD RECEVD TEST@<CR><LF> 

-ASCIZ @STATUS STATUS REGSTR@ 

«ASCII RECEVD TEST@<CR><LF> 

-ASCIZ STATUS PATTRN@ 
RECEVD REGSTR TEST@<CR><LF> 
STATUS ADRESS PATTRN@ 
RECEVD REGSTR TEST OFFSET@<CR><LF> 
STATUS ADRESS PATTRN REGSTR@ 
ACTUAL REGSTR OFFSET@<CR><LF> 
COUNT ADRESS REGSTR@ 

t « ACTUAL REGSTR RMER1 RMER2Z@<CR><LF> 
053375 103 050115 051105 . @CMPERR CMPERR ADRESS PATTRN PATTRN@ 


053444 054105 041520 042124 : @EXPCTD ACTUAL REGSTR FUNCTION@<CR><LF> 
053505 122 051505 . @RESULT RESULT ADRESS CODE@ 

053543 105 050130 Ss @EXPCTD ACTUAL STATUS  TEST@<CR><LF> 
053602 042522 052523 . @RESULT RESULT ADRESS REGSTR@ 

053641 101 052103 : @ACTUAL REGSTRA@<CR><LF> 

053661 122 051505 046125 ° @RESULT ADRESS@ 


- EVEN 
053700 001140 001142 001136 : ° SGDDAT , SBDDAT , SBDADR 0 


000000 : . SBDADR ,0 
001176 001200 ED47: “WORD $TMPO.STHP1-STRP2,0 
054062 001176  .« STMPO BUFFER, STMP1,BUFFER+2,0 
001142 — STMPO,STMP1,SBDDAT, $BDADR,0 
001174 i « STMP2,STMPS,STMPO,STMP1,0 
001142 001174 : SGDDAT, SBDDAT,STMPO,0 
001142 001440 : SGDDAT, SBDDAT ,RMHRO,0 
001142 001136 £€D115: .WORD $GDDAT,$BDDAT,SBDADR,$TMPO,0 
001136 ED130: .WORD $GDDAT,SBDDAT,$BDADR,STMPO,STMP1,0 
054036 001136 come ED220: .WORD $BDDAT,SBDADR 
054042 000 000 ; - BYTE ¢-6.8 


000 
000 000 





1a Sa So a oe 


054053 
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054054 000 000 000 
054057 000 000 


054062 
054062 
054062 000402 
055066 000402 
054062 


054062 
005015 
052123 047440 
026455 026455 


052011 040522 


004464 041595 


052111 044103 


004460 
055566 005015 


000001 


MACY11 30A(1052) O5-APR 


CONSOLE MESSAGES 
EF130: .BYTE 


LEVEN 
BUFFER: 
BUFONE: .BLKW 
BUFTWO: .BLKW 
BEX 
<CR><LF> 
aLIST OF 


<CR><LF> 
<CR><LF> 


BOQ eaea ee ® & 
OH NVWEUANDWOO WS 
' 


. <CR><LF> 
-LIST BEX 
- END 


C 13 
-78 14:49 PAGE 158 


0.0,0,0,0 


258. 
258. 
BUFFER 


TESTS@<CR><LF> 
a@<CR><LF> 


TRANSFER TEST@<CR><LF> 

CTOD TEST@<CR><LF> 

MASSBUS INITIALIZE TEST@<CR><LF> 
CLEAR STUCK ACTIVE TEST@<CR><LF> 
TRISTATE TRANSFER TEST@<CR><LF> 
REGISTER SELECT TEST@<CR><LF> 
DRIVE TYPE TEST@<CR><LF> 

DEVICE AVAILABLE TEST@<CR><LF> 
SEARCH TIMEOUT TEST@<CR><LF> 

SET DTE TEST@<CR><LF> 

FORMAT CHANGE TEST@<CR><LF> 

PROM STROBE TEST@<CR><LF> 

SYNC WORD COUNT INHIBIT TEST@<CR><LF> 
SYNC DETECTION TEST@<CR><LF> 

ABORT SYNC DETECTION TEST@<CR><LF> 
SYNC GENERATION TEST@<CR><LF> 
WRITE HEADER TEST@<CR><LF> 

HEADER COMPARE TEST @<CR><LF> 

ECC GENERATION TEST@<CR><LF> 

ECC DETECTION TEST@<CR><LF> 


mente acetic 


HALT ON ERROR@<CR><LF> 

LOOP ON TEST@<CR><LF> 

INHIBIT ERROR TYPEOUTS@<CR><LF> 
INHIBIT ITERATIONS@<CR><LF> 
BELL ON ERROR@<CR><LF> 

LOOP ON ERROR@<CR><LF> 

LOOP ON TEST IN SWR<7:0>a@<CR><LF> 
™N128a@<CR><LF> 

TN64a<CR><LF> 

TN32@<CR><LF> 

TN16@<CR><LF> 

TN8@<CR><LF> 

TN4@<CR><LF> 

TN2@<CR><LF> 

TN1@<CR><LF> 


SEQ 0158 
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176700 1512 
1471 


6738 6741 6742 6745 6746 


67054 


100000 6720 6723 6724 6727 6728 6729 6730 6731 6732 6733 
000000 6739 = 6740 «= 6743 67440 6747 6748 


000377 
L 031700 
= 000000 


USWR = 000000 
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120254 1510 


»> 
< 
mn 
oO 
“+ 
= 
" 


— 
_—_—O 
oto 
—-f£oO 


—MrnooOonMm 

— ee IW 
es YN 
WAWUAN SL LENO 
Vig OO D2O —MWUWIO 
ed ed ed ed ed ed etd ed 

mb ab ab ad ob and ad od 
MiVvIin~ wo ONO 
N@OANNOOO 


002000 
004000 


AANNA AWA NNW O 
eooo-—-w £ 


5251 
5261 


054062 3483 3910 3978 4127 4322 4586 4588 4615 7570 
054062 7596# 
5241* 5245* 5249 5254* 5265* 5313# 


001526 5337* 5350* 5361* 5602 ' 5678 
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CLR = 000040 13264 2293 2541 2562 2624 2677 2687 2725 2767 2832 2893 3015 3038 
3070 3102 3126 3158 3181 3203 3286 3380 3471 3568 3663 4121 4328 
4609 4876 5433 5508 

CLSPRN 030716 2364 2380 2401 67114 

CMNSTA 004254 2316 24518 

CNSLOO 031062 2326 67114 

CNSLO1 031121 2361 67114 

CNSLO2 031146 2370 67114 

CNSLO3 031227 2375 67118 

CNSLO4 031257 2386 67114 

CNSLOS 031333 2396 67114 

CNSLO6 031367 2407 67114 

CNSLO7 031414 2420 67114 

CONT = 000100 11964 

CR = 000015 9468 2434 5233 6105 6115 6711 7562 7599 

CRLF = 000200 947# 2275 6076 6115 

CYLMSK= 001777 1224# 2632 

DBCK = 100000 11684 5625 5642 

DBEN = 040000 1169# 1183 3346 3418 3420 3433 3435 3437 3440 3442 3496 3498 3500 


DBL = 002000 13434 
DCK == 100000 11294 1146 5031 
DDISP = 177570 9534 1443 2235 
DEBL = 020000 1170# 
DISPLA 001156 1443# 8 2235* 2243* 6185* 6228+ 
DISPRE 000174 13704 2243 
DLT = 100000 13154 
DMD = =-—«¢000001 11824 1183 12024 2733 2745 3346 3391 3393 3418 3420 3433 3435 3437 
3440 3442 3476 3478 3496 3498 3500 3502 3518 3521 3523 3525 3528 
3530 3574 3578 580 3593 3595 3610 3612 3627 3629 3685 3687 3711 
3713 3728 3730 3750 3752 3762 3764 5436 5438 5471 5511 5517 5519 
5535 5537 5555 5557 5592 5625 5627 5634 5636 5642 5644 5673 5675 
5685 5687 5690 5692 5694 5696 5711 5713 5722 5724 
DPE = 000010 12574 
DPEHI = 040000 13394 
DPELO = 020000 13404 
DPR == 000400 11224 
DRQ = = 004000 12094 
DRVCLR= 000010 10664 
DRY = 000200 11234 
DSWR = 177570 9524 1442 2234 
DTE = 010000 11324 1146 3384 3396 3426 3445 3447 3506 3533 3537 
DTO = 010000 11714 #1183 3418 3420 3433 3435 3437 3440 3442 3496 3498 3500 3502 
3518 3521 3523 3525 3528 3530 3685 3687 3711 3713 3728 3730 3750 
3752 3762 3764 5642 5644 5673 5675 5685 5687 5690 5692 5694 5696 
5711 5713 5722 5724 
DULPRT=~024024 12124 3256 3260 3263 
DVA = =_: 004000 1051# 2299 3290 3292 
DvC §= =: 000200 1256# 2743 
BL = 020900 11894 
CH = 000100 1138# 1146 5031 6737 6738 6745 6746 
CI = 004000 1217# 2634 
CRC = 001000 11934 54 4265 4667 


C 42 
DT1 037724 1632 1753 1761 1769 1777 1785 1793 1809 1817 1825 1833 1841 1849 
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1857 1865 1881 1889 1897 1921 1929 1945 1953 1969 1977 1985 1993 
2009 2025 2033 2041 2049 2135 2143 2167 2175 2183 2191 75358 


EDT115 037750 1873 2127 2151 7545¢@ 

EDT130 037752 75468 

DT132 037754 7547# 

DT2 037726 1640 75364 

DT220 037756 75484 

D147 =©037732 1937 7538" 

DTS 037730 1664 1672 1681 1913 75378 
D152 037734 1961 7539# 

D157 = 037736 2001 75404 

DT61 037740 2017 75414 

D165 037742 75428 

DT71 =037744 75434 

DT74 037746 75444 

D1 053700 7535 75644 

D115 054010 7545 7547 75804 

D130 =. 054022 7546 7582e 

D2 053710 7536 7544 75664 

D220 054036 7548 75844 

D47 053722 7538 75684 

DS 053714 7537 75674 

D52 053732 7539 75708 

D57 053744 7540 75728 

D61 053756 7541 75748 

D65 053770 7542 75764 

D71 054000 7543 75784 

ECC = 000020 11984 4667 4729 4752 4753 4763 
EFT1 037760 1633 1754 1762 1770 1778 1786 1794 1810 1818 1826 1834 1842 1850 


1858 1866 1882 1890 1898 1922 1930 1938 1946 1954 1970 1978 1986 
1994 2010 2026 2034 2042 2050 2136 2144 2168 2176 2184 2192 75508 


EFT115 037776 1874 2128 2152 7557# 
EFT130 040000 7558# 

FT132 040002 75594 

FT2 037762 1641 75514 

FT220 040004 7560# 

FTS 037764 1665 1673 1682 1914 75528 
EFTS7 037766 1962 2002 2018 75534 

F165 037770 75544 

FT71 §=037772 7555# 

FT74 = 037774 75564 

F1 054042 7550 7554 7555 75868 

F130 © ©054054 7558 75914 

F2 054045 7551 7556 75878 

F5 054046 7552 7560 75884 

F57 054050 7553 7557 7559 75898 

HT1 037614 1631 1752 1760 1768 1776 1784 1792 1808 1816 1824 1832 1840 1848 

1856 1864 1880 1888 1896 1920 1928 1944 1952 1968 1976 1984 1992 
2008 2024 2032 2040 2048 2134 2142 2166 2174 2182 2190 75164 

EHT115 037670 1872 75278 

HT130 037674 75284 

HT132 037700 75294 

HT145 037704 7530# 

HT150 037710 2126 2150 75318 

HT 037620 1639 7517# 


2 
HT213 037714 75320 
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EHT220 037720 75338 
EHT47 § §=©037634 1936 75208 

HTS 037624 1663 1671 75188 

HT52 037640 1960 75218 

H15S7 =. 037644 2000 75228 

HT61 037650 2016 75230 

HT65 037654 75248 

HT7 037630 1680 1912 75198 

HT71 037660 75258 

HT74 =037664 75268 

H1 052222 7516 7562# 

H115 =053012 752? 7562a 

H130 053110 7528 75624 

H132 053227 7529 7562a 

H145 = 053326 7530 75624 

H150 053444 7531 75624 

H2 052301 7517 75624 

H213 9053543 7532 7562a 

H220 053641 7533 75624 

H3 052310 7526 7562a 

H47 052375 7520 75624 

H5 052317 7518 75628 

H52 052423 7521 75624 

H57 052522 7522 75624 

H61 052621 7523 7562a 

H65 052657 7524 75624 

H7 052356 7519 7562a 

H71 052734 7525 75624 

MS1 040006 6761 6762 7562a 

MS10 040411 6933 6938 7562a 

MS100 045051 6836 6843 6845 6851 6854 6858 6861 6911 7562e 
EMS101 045111 6836 6911 75624 

MS102 045165 6847 6849 6851 6854 6863 75628 

EMS103 045233 6865 75624 

MS104 045273 6856 6858 6868 75624 

MS105 045320 6870 7562# 

MS106 045361 6876 7562a 

MS107 045426 6878 6881 6886 75624 

MS11_ 040454 6943 75624 

MS110 045436 6881 75624 

MS111 045475 6884 75628 

MS112 045513 6891 75624 

MS113 045551 6894 6914 75624 

MS114 045610 6897 75624 

MS115 045656 6908 75624 

MS116 045673 6916 75624 

MS12 040545 6921 75624 

MS13° 040623 6951 6954 6957 6960 75624 

MS14 040672 6964 6974 75624 

MS15 040737 6964 6971 7089 7321 7325 7363 7368 7400 7432 7471 75628 
EMS16 041015 6976 6981 6986 7341 75624 

MS17 041076 6976 6981 6989 75628 ; 

MS2 040057 6769 7053 7096 7147 7155 7164 7186 7347 7358 75628 
EMS20 041137 6991 6996 7000 7004 7009 7014 7021 75624 
MS21 041203 6991 6996 7004 7009 7014 7018 7373 7405 7437 7476 75624 


EMS22 041262 6996 7000 7009 7014 75624 
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041327 75624 
7455 7507 


7219 7253 75624 
75624 

7033 7048 

7253 7266 


7442 


7479 


046420 7155 7164 7186 
046436 7018 7033 7048 


046461 
046506 
046517 
046526 7562a 
046542 7347 


041745 
046603 
046620 
046664 
046722 
046753 
047002 
047030 
047051 
042016 
047071 


047324 


047340 
047350 


047373 





75624 
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EMS337 047412 6833 6836 6957 6969 6981 7004 7009 7028 7043 7061 7107 7114 7133 
7168 7172 7176 7180 7196 7227 7253 7270 7279 75624 
EMS34 042135 7082 7199 75624 
EMS340 047426 6807 6810 6825 6851 6854 6858 6861 6933 6938 7191 7368 7378 7400 
7410 7432 7442 7471 7502 75624 
EMS341 047437 6836 6911 6964 6976 6981 6991 7004 7009 7023 7028 7038 7043 7061 
adh, reas 7100 7107 7114 7212 7215 7219 7223 7227 7231 7235 7244 
4 a 
EMS342 047446 6921 6933 6938 6948 7332 75624 
EMS343 047500 6884 6948 7562a 
MS344 047514 6948 75628 
MS345 047543 6954 6957 7104 7239 7273 75624 
EMS346 047571 344 be 6964 6976 6991 7023 7038 7104 7231 7235 7239 7244 7304 
a 
EMS347 047607 6960 6971 6986 7018 7033 7048 7065 7562a 
EMS35 042173 7089 7162 7172 7180 7196 75624 
EMS350 047630 6996 7000 7009 7014 7282 7313 7352 7363 7562a 
EMS351 047635 6996 75624 
MS352 047653 6813 6817 7014 75624 
MS353 047667 6916 6918 7057 7129 7139 7143 7151 7159 7168 7206 7336 7562# 
EMS354 047713 pete 7074 7118 7129 7136 7151 7159 7206 7249 7259 7262 7266 7341 
MS355 047746 7078 7082 7100 75624 
MS356 047770 6821 7321 7325 7329 7468 75624 
EMS357 050010 7089 7317 75624 
MS36 = 042235 7096 7122 7133 7136 7139 7143 7191 7317 7376 7387 7394 7408 7419 
7426 7440 7451 7458 7489 75624 
EMS360 050032 7089 7321 75624 
MS361 050060 7325 75624 
MS362 050106 7093 75624 
MS363 050127 7111 7286 7289 7313 75628 
EMS364 050144 7118 7262 7266 75624 
MS365 050165 6854 7118 7129 7139 7143 7151 7159 7206 7332 7336 7341 75624 
EMS366 050172 7126 75624 
MS367 050215 7129 7139 7143 7151 7159 7206 7336 7562e 
EMS37 042265 7100 75624 
MS370 050265 6843 6865 6870 6894 7139 7387 7419 7451 7481 7562# 
EMS371 050302 6914 7143 7485 75624 
MS372 050331 6807 6810 7172 7176 7183 7317 7341 7352 7363 75624 
EMS373 050363 7239 7273 75624 
MS374 050367 7253 75624 
MS375 050420 7292 75624 
MS376 050434 7296 7300 7308 7352 75624 
MS377 050450 94 7 6854 7332 7341 7352 7373 7391 7405 7423 7437 7455 7476 
MS4 040173 6889 7086 7562# 
MS40 =042325 7104 7107 75624 
MS400 050461 6810 6863 7363 7562# 
MS401 050476 ots 4 # 6876 6894 6897 7336 7354 7363 7383 7415 7447 7460 7493 
MS402 050513 6813 6817 6821 6861 7373 7391 7405 7423 7437 7455 7476 7507 75628 
EMS403 050522 7373 7391 7405 7423 7437 7455 7476 7507 7562¢ 
EMS404 050563 7378 7410 7442 7489 7502 75624 
MS405 050602 6881 6891 7368 7378 7383 7387 7396 7400 7410 7415 7419 7428 7432 


7442 7447 7451 7460 7464 7471 7481 7485 7489 7493 7498 7502 7512 
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050612 7400 7432 7471 7562¢ 
7172 7176 7183 7329 7332 75624 


6891 6908 6916 75624 
75628 
6897 6908 75624 


051251 


051276 
051345 


051371 


051415 
051470 
051525 
043113 
051615 
051670 
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043162 


75624 
7502 7507 7512 75628 


7383 7415 7447 7562# 


7468 7471 7502 75624 


034012 
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034032 


68044 
7196# 


; 72024 
: , 06# 
035426 7210# 
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035454 


037060 
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037104 


033320 
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3667 54928 


5213 
000004 2244% 5332* 5333* 5348  5369* 5370+ 6137* 
022426 


010000 
031600 





000040 


reeree 


000001 
104407 


000001 


000002 
000024 
000026 
000030 
ILF32 = 000032 
ILF34 = 000034 
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2628 2649 2681 2697 2771 2808 2844 2869 3109 3116 


010000 


002000 


004000 


020000 


000400 


020000 
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010000 


002000 
051401 


000040 


001000 


000010 


020000 5 6723 6724 6725 
6736 6737 6738 


= 000200 


02000 3736 4941 4946 4949 


5773 
023060 
67114 


000100 
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PR3 000140 2489 


5340 5353 5386 


6612* 6613* 6622* 6628*  6640*  6641* 


4885 

2354 2422 2431 6465 66034 
66054 

5158 


000000 


001326 
001402 
000010 


001336 
001412 
000052 
001400 
001454 
000006 


001334 
001410 


= 000022 
001350 





CZRMKAO RMO3/2 DSKLS PRT 


CZRMKA.P11 
RMDBO 3 001424 
RMOC == 000034 
RMOCI 001362 
RMOCO §3 001436 
RMDS = 000012 
RMOSI 001340 
RMDSO =: 001414 
RMOT = 000026 
RMDTI =: 001354 
RMDTO =©—.001430 
RMECT = 000044 
MECII 001372 
MECIO 001446 
MEC2 = 000046 
MEC2I 001374 
MEC20 001450 
RMER1 = 000014 
RMERII §=001342 
RMER1O 001416 
RMER2 = 000042 
RMER2I 001370 
MERZO 001444 
MHR = 000036 
RMHRI =. 001364 
MHRO 001440 
RMLA == 000020 
RMLAI =. 001346 
MLAO 3 001422 
RMMR1 = 000024 
RMMRIIT = 001352 


O5-APR-78 1 


2 
4 


MACY11 30A(1052) 


G 14 
14:49 PAGE 176 


CROSS REFERENCE TABLE -- USER SYMBOLS 


O5-APR-78 
2790* 2803 
3188* 3208+ 
2803* 2810+ 
3119* 3120 
3481* 3658+ 
5446 5450 
3265 
2729* 2736 
3129* 3141 
3505 3509 
2736* 27418 
3117 31418 
2731* 2738 
3137* 3163+ 
2703 2738+ 
3063* 3064 
3022* 3346+ 
3496+ 3498+ 
3580* 3582 
3690 3700 
3766 3772 
3938* 3943+ 
4072* 4086 
4223 4230+ 
4359 4381+ 
4472 4480+ 
4567 4666 
4784* 4816* 
4968* 4970+ 
5096 5436* 
5555*  5557* 
5673* 5675+ 
5726 5738 
5812* 5815+ 


2841* 


2775* 
3184* 
3532 


2799 
3214* 
4576 


2820 
3195 


2805 
3210* 
2811* 
3096 


2901* 
2871* 
3220* 


4125* 
5570 


2852* 


5 
5752* 


3020* 
2912+ 
3226 

4613* 


3028 
2930 
4880+ 


SEQ 0175 


3107* 
3028+ 
5582 


3018* 


5784+ 


CZRMKAO 


CZRMKA.P11 


RMO3/2 DSKLS PRT 2 


001426 
000040 
001366 
001442 
000032 
001360 


001434 


001100 
003426 


001154 


000176 
000001 
000001 
000002 


O5-APR-78 14:38 


H 14 
MACY11 30A(1052) O5-APR-78 14:49 PAGE 177 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3874* 
4524 
4002 
2645 
3131* 
2655* 
3087* 
3404 


3111* 


5586* 
3406* 


3877 
4007 


2777+ 
3 


3878+ 
4016 


2674 
3971 


5351* 


3880 
4022 


2801 

3206+ 
2815* 
3143* 
3797* 


4491* 
4194 


2839* 


3249 
4873 


5178 
6620 


4499* 
4370 


2899* 


2876 
3223* 
4324* 


3285 


6131 
6633+ 


3309 


6145 


SEQ 0176 


4514% 4518 
4679 4686 


3043* 3055 
2924 3055* 
4881* 5584 


3373 3464 


6148 6163 





I 14 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 178 SEQ 0177 
CZRMKA.P11 OS-APR-78 14:38 CROSS REFERENCE TABLE -- USER SYMBOLS 


000004 


53094 
001456 2492 2537 2623 2676 2724 2765 2979 3251 3285 3311 
3655 3793 3905 3973 4120 4316 4608 4875 5105 5107* 


004430 


016742 





J 14 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 179 SEQ 0178 
CZRMKA.P11 O5-APR~78 14:38 CROSS REFERENCE TABLE -- USER SYMBOLS 


020166 
005224 
005440 
005626 
006764 
010144 
104406 
104405 
104401 


104402 


5403*  5601* 

= 000040 3 3632 i 3856 3883 
4186 4460 4542 
5089 5546 5716 5739 


000050 


000040 





Kk 14 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 180 SEQ 0179 
CZRMKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE -- USER SYMBOLS 


000052 


001276 
001136 


001142 


001212 


65134 


001217 zee 5276 5284 5304 6080 6115 6239 6264 
025322 59584 


001316 





L 14 
CZRMKAO RMO3/2 DSKLS PRT MACY11 30A(1052) O5-APR-78 14:49 PAGE 181 SEQ 0180 
CZRMKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE =~ USER SYMBOLS 


001320 


2301+ 2446* 2447 
51564 


51524 


6226* 6264 
2759* =2973* 3245* 3279« 3369* 3460+ 
4310* 4602*  4869* 6161 6189 


001140 


021632 


001122 


001504 
001502 
001124 





CZRMKAO RMO3/2 DSKLS PRT 2 
CZRAKA.P11 O5-APR-78 14:38 


001222 


001252 


000001 


025554 


000137 


177777 
026302 


M14 
MACY11 30A(1052) O5-APR-78 14:49 PAGE 182 


CROSS REFERENCE TABLE -- USER SYMBOLS 


3651* 3789* 3901* 3969* 4116* 4312+ 
5339* 5340" 5354* 5355  5362* 5363+ 


14728 2527 
3784 


6696* 
6674 
6677* 


27098 
3363 
41064 


6631* 66478 


2218 2220 
6251 6259 


61794 


4604* 


2614 
3896 


29644 


SEQ 0181 


6254 


32364 
3643 
48618 





N 14 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) OS-APR-78 14:49 PAGE 183 SEQ 0182 
CZRMKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE -- USER SYMBOLS 
SVPC = 000200 1378@ 8 §«1383 
SWR = 167400 905# 916 921 922 923 924 925 926 927 1457 1458 1459 2225 
2226 2228 2229 2527 2614 2666 2714 2756 2969 3241 3275 3302 3366 


SWREG 001244 14848 2249 
SWRAK= 000 927 928 6125 6126 6149 
SWO8T 026354 6155 61894 
STESTN 001226 1475@ =2527* =2614* = 2666* = 2714 = 2.756% =. 269% = 524 1* =—5275* = 33502" «= 3 366* «= 35457 8935 5B 
3646* 3784 3896" 3964* 4111* 4307* 4599% 4866* 5190 6180* 
STIMES 001206 1457@ 2225* 5124 6168* 6175 6178* 6138 
TKB 001162 14454 6267 6288 6299 6324 6352 6379 
TKCNT 026624 62684 6283* 6313 6330* 6444 6446+ 
TKINT 6634 2319 2491 62834 6304 6365 
TKQEN= 026633 62724, 6338 6449 
TKQIN 026626 62694 6284" 6285 6336* 6337* 6338 6340+ 
TKQOU 026630 6270#@ 6285" 6447 , 6448+ 6449 6451* 
TKQSR 026632 62718 6284 6340 6451 
STKS 001160 1444# 6267 6289* 0320* 6322 6328+ 6350 6366* 6376 6388* 6408+ 
STKSRV 026704 6286 62998 
STMPO 8 =001174 1452#@ 3262* 3511* 3701* 3839* 3858* 4216* 4218 4236 4293 4506 4507* 4527 
esas a 4788 4792 4977* 4979 5454* 5574* 7568 7570 =. 7572 7574 7576 
THP1 001176 1453#@ 2328* 2329 2330 2333 2342 2343 2344 2352* 2353 2356 2366* 2368 


STMP2 001200 14544 4297 4509* 4796+ 7568 7574 
STMPS 001202 1455#@ 4797* 7574 
TMP4 001204 1456# 
STN == 000025 916# 2522 25274 2532 2609 26148 2618 2661 26664 2671 2709 27148 2719 
2751 27564 2760 2964 2969# 2974 3236 32414 3246 3270 32754 3280 3297 
33024 3306 3361 3366# 3370 3452 34578 3461 3553 3558# 3562 3641 36464 
3650 779 37844 3891 3896# 390 3959 39644 3968 4106 4111# 4115 
4302 4307# 4311 4594 4599# 4603 4861 48664 4870 6150 6190 
STPB 001166 1447# 6104* 6115 
STPFLG 001173 14514 6053 6115 
ISTPS 001164 1446# 6102 6115 
STRAP 030164 2220 65664 
STRAP2 030224 65814 6592 
STRP = 000016 65854 65944 6595# 6596# 65978 6598%  6599% 6600 66014 6602 66034 66044 66054 
66064 66074 66084 
TRPAD 030236 6575 65924 
STSTM 001104 1410# 
STSTNM 001116 14244 5123* 6120 6152* 6179* 6180 6185 6189 6228 6264 
STTYIN 030010 6462 6463 6475 6493 6507 65114 
TYPBN 025032 5877# 6598 
TYPDS 025106 59044 6597 
TYPE 025560 60534 6585 6593 6682 
STYPEC 025772 6083 6090 6097 61024 6103 6410 
TYPEX 026040 6108 6110 61134 


‘ 6 
sTYPON 025372 5988 5991# 6596 





CZRMKAO RMO3/2 DSKLS PRT 2 
CZRMKA.P11 


STYPOS 


S$SwWO8= 


SOFILL 
S$40CAT= 


025332 


000025 
025555 


eereete 


055571 


xreeere 


001100 


O5-APR-78 14:38 


59848 
14784 


6595 
24928 


2373 


MACY11 30A(1052) 


O5-APR-72 


8 15 
14:49 PAGE 184 


CROSS REFERENCE TABLE -- USER SYMBOLS 


5184 


2388* 


2389 


24158 


62734 


61954 
62084 


13884 
22758 
65114 


61964 
62094 


13914 
51364 
6512 


65194 


61984 


13984 
51604 
6624 


SEQ 0183 
6199# 6200 62014 
1400# 14028 1414 
5958# 6115 6188 
6646 6703#  6713# 


¢ 15 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 186 SEQ 0184 
CZRAKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE -=- MACRO NAMES 


905# 2 2687 2725 2767 2832 3102 3126 
3158 8 


3568 3663 4121 


10464 





D 15 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5-APR-78 14:49 PAGE 187 ' SEQ 0185 
CZRMKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE -- MACRO NAMES 


3046 





CZRMKAO RMO3/2 DSKLS PRT 2 


CZRMKA.P11 OS-APR-78 14:38 


905# 1526 


056072 


ERRORS DETECTED: 


E 15 
MACY11 30A(1052) O5-APR-78 14:49 PAGE 188 


CROSS REFERENCE TABLE -- MACRO NAMES 


2716 2757 2971 3243 3277 3303 3367 
4600 4867 


3236 3270 3297 3361 
6602 6603 6604 6605 


3458 


3452 
6606 


3559 


3553 
6607 


3647 


3641 


SEQ 0186 


3785 





F 15 
CZRMKAO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) O5=-APR-78 14:49 PAGE 189 SEQ 0187 
CZRMKA.P11 O5-APR-78 14:38 CROSS REFERENCE TABLE -- MACRO NAMES 


DSKZ:CZRMKA.BIN,DSKZ:CZRMKA.SEQ/NL: TOC:MC:MD:CND/LI:ME/SOL/DOC/CRF=DSKM:CZRMKA.P11 
RUN-TIME: 39 27 4 SECONDS 

RUN-TIME RATIO: 936/71=13.0 

CORE USED: 32k (63 PAGES) 


DOCUMENT PAGES: 187 





